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ZX Spectrum, или как его ласково называют на родине в 
Англии — Speccy, прочно вошел в жизнь многих наших 
соотечественников. Он оказался идеальным вариантом недо- 
рогого компьютера «для дома для семьи» (home computer). 
Маленький 5рессу с огромным пакетом программного обеспе- 
чения, созданного за десять лет зарубежными прог- 
раммистами, стал своеобразной гуманитарной помощью Запа- 
да бывшему Союзу. 

По традиции, сложившейся для машин класса home 
computer, один из популярнеиших языков программирования 
BASIC (Бейсик) «вшит» в память ZX Spectrum. Это означает, 
что компьютер готов к работе на Бейсике сразу после 
включения. 

Spectrum-beficnk (так мы будем называть Бейсик, встроен- 


‘ный в ZX Spectrum) подробно, начиная с самых азов, описан в 


первой главе книги. Большая часть этой главы адресована тем, 
кто только учится программировать. Для более подготовлен- 
ных читателей написан специальный раздел — справочник, где 
вся информация об операторах и функциях 5ресгит-Бейсика 
приведена в сжатой и строгой форме. 

эзресгит-Бейсик представляет собой набор лишь самых не- 
обходимых средств программирования. Поэтому сразу после 
появления Speccy стали создаваться программные пакеты, до- 
полняющие 5рестит-Бейсик новыми операторами и 
функциями, — расширения 5$ресиит-Бейсика. Они подгружа- 
ются в память с магнитного носителя и открывают перед 
программистом множество дополнительных возможностей. 

Каждое расширение Бейсика имеет свою область приме- 
нения. Система PRO-DOS ориентирована на преобразование 
экранного изображения и вывод текста разнообразными 
шрифтами. Она используется, в основном, для создания демон- 
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страционных и рекламных программ. Но у PRO-DOS имеется 
существенный недостаток — она не позволяет перемещать 
картинки. На динамических эффектах специализируется пакет 
Laser Basic. С его помощью можно различными способами 
трансформировать графические объекты (спрайты) и 
передвигать их по экрану, создавая что-то наподобие 
мультфильмов. 

При необходимости максимально расширить арсенал 
средств программирования можно пустить в ход «тяжелую 
артиллерию» — диалекты MegaBasic и Beta Basic. Они не 
только вводят много новых операторов и функций, но и дела- 
ют более удобным и эффективным процесс написания и 
отладки программ. MegaBasic, в основном, ориентирован на 
усиление внешнего оформления программ (управление спрай- 
тами, генерация звуковых эффектов и т. д.). Beta Basic неза- 
меним для решения расчетных задач и реализации сложных 
алгоритмов обработки данных. MegaBasic и Beta Basic занима- 
ют в памяти компьютера довольно много места, но этот недо- 
статок с лихвой окупается мощностью этих языков. 

Одна из глав книги содержит описания компиляторов 
Spectrum-befticnkKa, от самых простых (ZX-Compiler, Mcoder 2, 
Softek IS) до более серьезных (Softek FP, Tobos ЕР). 

В последнее время все большую популярность среди синкле- 
ристов приобретает компьютер ZX Spectrum 128. Учитывая 
это, в книгу включена глава о языке программирования 
Бейсик 128, «вшитом» в память ZX Spectrum 128. 


Глава посвященная стандартному 5ресйтит-Бейсику, 
написана А. Болдачевым, консультировали его Н. Родионов и А. 
Ларченко. Компиляторы описали В. Елисеев и Л. Клюев, 
PRO-DOS — Л. Клюев, Laser Basic — П. Карпов (консультант — 
А. Евдокимов}, MegaBasic — Ю. Родионов, Beta Basic — 
И. Думов (при участии Л. Клюева). Материал о Бейсике 128 
подготовил А. Ларченко. 


Условные обозначения, используемые в книге: 


CS — клавиша Caps Shift; 

SS — клавиша Symbol Shift; 

CS/Z — клавиши нажимаются одновременно 
(в данном случае Caps Shift и Z); 

+2 — клавиши нажимаются последовательно 


(в данном случае У и 7); 


[] — в квадратные скобки заключаются необязательные 


элементы формата операторов и функций; 
| — может использоваться один из нескольких 
элементов формата, разделенных этим знаком. 
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Это введение написано не для программистов, а для тех, кто 
только собирается ими стать. Конечно, новичку нужна особая 
книга, но, может быть, и эта начальная информация облегчит 
понимание не столь уж хитрого языка программирования — 
Бейсик. 


Начнем с самого простого. Попробуем ответить на вопрос, что 
такое — компьютер? Что о нем должен знать программист? 

Ничего особенного, кроме того, что в компьютере есть процес- 
сор, память и устройства ввода-вывода (клавиатура, монитор и 
другие). Достаточно знать, что процессор обрабатывает инфор- 
мацию, память хранит данные, а устройства ввода-вывода обес- 
печивают связь компьютера с внешним миром. 

Основное же, что должно интересовать программиста — это 
список команд процессора. Ведь чем программист занимается? 
Лишь тем, что составляет из команд последовательности, называе- 
мые программами. И только. 

Обобщим: программист должен хорошо представлять себе, как 
ввести в компьютер исходные данные, в каком виде можно по- 
лучить результат, и великолепно знать, как при помощи команд 
преобразовывать одно в другое. 

Список команд индивидуален для каждого типа процессора и 
закладывается раз и навсегда при его проектировании. Команды 
доводятся до процессора в виде чисел — кодов. Распознавая эти 
коды, он выполняет те или иные действия, например: пересылает 
данные из одного места памяти в другое, выполняет мате- 
матические операции и другие элементарные преобразования. 
Последовательность, составленная из команд процессора, называ- 
ется программой в машинных кодах или просто программой в кодах. 


Оперировать с набором кодов неудобно, и естественное стрем- 
ление программистов научить машину понимать человеческую 
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речь привело к появлению всевозможных языков программирования 
— систем, позволяющих записывать программы словами. Первым 
делом для составления программ стали использовать мнемоничес- 
кую запись команд процессора — слова или наборы букв, одноз- 
начно соответствующие кодам. После того, как последовательность 
указаний процессору записана с помощью мнемоник, ее пропу- 
скают через специальную программу, которая переводит слова в 
коды. Такая система прямого перевода получила название язык 
программирования низкого уровня — ассемблер. «Слов» в ассемблере 
практически столько же, сколько команд процессора, выигрыш 
получается лишь в наглядности представления программы. 


Следующим шагом в развитии языков программирования стала 
идея «записывать» часто повторяющиеся последовательности ко- 
AOB ОДНИМ, Так называемым ключевым словом. Например, сказал 
компьютеру: «PRINT 2*2» (что в приблизительном переводе с 
английского означает: напечатай, сколько будет дважды два), а OH 
и сосчитает, и выведет результат на экран, то есть выполнит 
достаточно длинную, но стандартную последовательность команд 
процессора. Ее надо только один раз составить, а потом ис- 
пользовать и AAA «дважды два — четыре» и AAA «трижды три — 
где-то семь». 

Таким образом, достаточно написать множество стандартных 
последовательностей команд, выполняющих часто повторяющиеся 
операции, например: «вычислить косинус выражения», «опросить 
клавиатуру — не нажата ли клавиша? », «остановить выполнение 
программы», «если некое условие соблюдено, то выполнить за- 
данные действия» и т. д. После этого каждую из последователь- 
ностей нужно назвать соответствующим человеческим словом: 
COS, INKEY, STOP, IF...THEN — и получится язык программирования 
высокого. уровня. 

Наиболее доступным из языков высокого уровня является 
Бейсик. Его исконное название — BASIC, а полностью — Beginner 
All-purpose Symbolic Instruction Code, что в переводе означает 
«инструктивный многоцелевой код для начинающих». Принято 
считать Бейсик языком учебным: он проще других в изучении и 
использовании. Но при этом Бейсик имеет все необходимые срел- 
ства для решения большинства программистских задач. Впрочем, 
о Бейсике мы еще наговоримся, а сейчас еще несколько слов о 
языках программирования высокого уровня. 

Итак, благодаря использованию в языках программирования 
«человеческих» слов программы стало писать легче и быстрее. И 
читать удобнее. Программисту. А компьютеру? Для компьютера 
надо переводить текст программы на компьютерный язык — язык 
команд процессора. Программа, понимающая слова языка прог- 
раммирования и заменяющая их соответствующими последова- 
тельностями команд процессора, называется транслятор (от англ. 
translate — переводить). 


Наиболее простой способ трансляции — это немедленный «AO- 
словный» перевод, так называемая интерпретация (от англ. 
interpret — толковать). Программа, осуществляющая такой перевод, 
называется интерпретатором. Она опознает ключевые слова язы- 


ея" 


тт ми -=>--—--- 





КОРОТКОЕ ВВЕДЕНИЕ 


ка программирования (COS, STOP и прочие) и тут же «подсовывает» 
процессору соответствующую последовательность кодов. 
Интерпретатор может работать в двух режимах: в непосредст- 
венном‘режиме и в режиме выполнения программы. В непосредст- 
венном режиме действие, заданное тем или иным ключевым сло- 
вом, выполняется сразу же после введения слова с клавиатуры. 
Для работы в режиме выполнения программы предварительно CAO- 
вами языка программирования записывается последовательность 
требуемых от компьютера действий — текст программы. В тексте 
расписывается, что сделать сначала, что потом, что откуда взять и 


‚куда Положить. Программа заносится в память компьютера и запу- 


скается на выполнение, то есть интерпретатору дается задание 
слово за словом считывать из памяти текст программы и пере- 
водить его на язык команд процессора. (Именно такой интерпрета- 
тор «зашит» в постоянной памяти ZX Spectrum.) 


У интерпретаторов есть большое достоинство — простота от- 
ладки программ: выполнение программы в любой момент можно 
остановить и отредактировать ее текст. Но есть и существенные 
недостатки. Во-первых, программы работают только при наличии 
в памяти компьютера самого интерпретатора, который занимает 
довольно много места. И, во-вторых, программа, работающая с 
интерпретатором, делает все очень медленно. Время уходит и на 
распознавание слов языка, и на поиск соответствующих послелдо- 
вательностей команд процессора, и на прочее, прочее, прочее. Не 
говоря о TOM, что сами стандартные последовательности, 
вследствие их универсальности, получаются гораздо длиннее, чем. 
программы в кодах, написанные специально для каждого конкрет- 
ного случая. И, естественно, дольше выполняются. 


От этих недостатков удалось избавиться с изобретением другого 
способа трансляции — компиляции (от англ. compile — собирать). 
Компилятор — специальная программа, исходным продуктом Аля 
которой, как и для интерпретатора, является текст на соответству- 
ющем языке программирования высокого уровня. Но в отличие от 
интерпретатора, компилятор не выполняет предписанные этим 
текстом действия немедленно, а создает, собирает из имеющихся в 
нем стандартных последовательностей другую программу — в ко- 
дах, не зависимую от каких либо трансляторов. Главная задача 
компилятора — сделать программу максимально быстродействую- 
щей. Откомпилированную программу, как и любую программу в 
кодах, трудно читать и изменять. Приходится редактировать исход- 
ный текст на языке высокого уровня и пропускать его вновь через 
компилятор, чтобы получить новую программу в кодах. 


Созданы компиляторы и для 5ресиит-Бейсика. О них позже. A 
сейчас — об интерпретаторе Бейсика. Основная часть первой 
главы рассчитана на начинающих. Для уже имеющих опыт в 
программировании предназначен специальный раздел — «Спра- 
вочник по 5реснат-Бейсику» (лалее просто «Справочник»). 
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Бейсик — родной язык компьютера ZX Spectrum. На Бейсике он 
готов вести беседу сразу после включения питания и поймет то, что 
мы хотим ему сказать с полуслова. Ведь для ввода бейсиковской 
команды в Spectrum достаточно нажать лишь одну клавиигу, ну 
две, в крайнем случае, три, не больше. И все благоларя тому, что 
программа, которая «силит» в постоянной памяти компьютера, 
клавиатура машины специально приспособлены для работы на 
Бейсике. Это видно при первом же знакомстве со Speccy: на его 
клавиши кроме букв, цифр и всяких значков нанесено еще по 
несколько английских слов. Это слова из лексикона Беисика — 
имена его операторов и функций. Они называются ключевыми 
словами. 

На большинстве компьютеров ключевые слова языков програм- 
мирования, в том числе и Бейсика, набираются по буквам. Папри- 
мер, для набора слова PRINT приходится нажимать одну за другой 
нять клавиш: Р, В, I, МиТ. И при этом нельзя ошибиться, иначе 
компьютер не поимет, что, собственно, от него хотят. Speccy же, 
если с ним говорить на Бейсике, горазло смышгленее. 

Включим компьютер и после того, как надоест любоваться фир- 
менной заставкой 
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— нажмем клавиипгу, на которой нарисована буква Р. В нижней 
части экрана, в так называемой строке редактора, мгновенно 
появится слово PRINT. Целиком и гарантированно без опгибок. 

В результате нехитрого действия (нажатия клавиши} мы Ha- 
брали, или, как принято говорить, ввели оператор РАМТ. Оператор 


'_— это ключевое слово, преднисывающее комиьютеру выполнить 


некую законченную последовательность действий. Например, one- 
ратор PRINT отвечает за вывод на экран числовой и текстовой 
информации. Он так и переводится — «печатать». Что именно 
печатать, записывается следом за словом PRINT. 

Там, на экране, за PRINT, лавно уже мерцает квадратик с буквой 
L. Этот квадратик называется курсором. Его основное назначение 
-— указывать место, куда будет ввелен символ или ключевое слово 
при. нажатии клавиши. Нажмем, например, клавингу с изобра- 
жением цифры 5, и эта цифра выскочит на экран в том месте, где 
до этого был курсор, а сам курсор передвинется правее. 

Теперь у нас получился полноценный оператор: ключевое слово 

данными — PRINT 5. Можно приказать компьютеру выполнить 
ero. Найдем на клавиатуре клавишу с надписью Enter (ввести, 
англ.) и нажмем ее. В верхнем левом углу экрана напечатается 
цифра 5 (что и ожидалось), сам оператор пропадет, а на его месте 
появится сообщение: 


0 OK, 9:1 


Мол, все o’KeH, оператор* выполнен. 


® = с 
Цифры 0:1 означают: первый в нулевой строке. 
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ПЕРВОЕ ЗНАКОМСТВО 


На этом примере мы не только ознакомились с тем, как одним 
нажатием клавиши набрать ключевое слово и выполнить полу- 
чившийся оператор, но и с простейшим форматом оператора PRINT. 

Формат — это узаконенный для языка программирования спо- 
соб соелинения ключевого слова, параметров и данных. Парамет- 
ры задают режим работы операторов. Их количество и смысл 
строго опрелелены для кажлого из них. Данными будем называть 
«перерабатываемую» операторами информацию. В выполненном 
нами операторе ланными является цифра 5, а параметров нет. 

Оператор PRINT имеет более сложный Формат, если с его по- 
мощью на экран нужно вывести не числовые данные, а CUMBOAb- 
ные, то есть буквы или другие знаки (символьные данные часто 


еще называют строковыми или просто строками). В этом случае 
данные заключаются в кавычки. Вот так: 
PRINT "р" 


Набирается эта конструкция предельно просто. После вклю- 
чения компьютера {или выполнения какого-либо оператора} 
нажимаем клавингу Р (последствия этого действия нам уже извест- 
ны). Далее длавим на клавишу с налписью Symbol! Shift и, не отпу- 
ская ее, опять клавишу Р — на экране появится кавычка ("). Потом 
еще раз — клавишу P и ее раз — Symbol! Shift одновременно с P 
(кавычка}. Теперь можно жать Enter, PRINT кавычки «обрежет» и 
напечатает на экране строчную букву р. 


Если при наборе оператора лопущена ошибка, нет необходи- 
мости сбрасывать компьютер и начинать ввод сначала. Пока не 
нажата клавиша Enter, набранную строку можно редактировать. 
Выведенные на экран ключевые слова и символы удаляются 
одновременным нажатием клавии! Caps ЗЫ Ш и 0. Эта комбинация 
клавиш задает команду редактора Delete. После ее выполнения 
символ или ключевое слово, стоящее левее курсора, удаляется. 
Подвести курсор к любому месту набранной строки можно с 
помощью клавиш перемещения курсора: Caps Shift и 5 (влево) и 
Caps Shift и 8 (вправо). Если необходимо вставить в уже набран- 
ную строку еще что-нибудь, то к нужному месту подводится курсор 
и обычным образом набирается ключевое слово или символ. Текст, 
расположенный правее курсора, при этом сдвигается, освобождая 
место для вводимых символов. В этом коротеньком абзаце мы 
описали редактор строк Зреспат-Беисика. Удобств в нем малова- 
то, но набрать и поправить строку можно. 


Пример с выводом на экран буквы р приве- 
ден здесь не только для того, чтобы проде- 
монстрировать формат оператора РАМТ при 
выводе символьных данных, но и для нпояс- 
нения специфики работы клавиатуры 
ZX Spectrum. Для большей наглядности 
включим в строку, взятую в кавычки, еще 
прописную букву P, и значок ©. Они 
набираются нажатием все той же клавиши 
(рис. 1}: прописная Р — совместно с 
клавишей Caps Shift, а значок © — сложнее: 
сначала одновременно нажимаются уже изве- 





Рис. 1. Клавиша Р. 


aes 





SPECTRUM-BEMCHK 





стные нам клавиши Caps Shift и Symbol Shift и только потом 
Symbol Shift и P. Получим в строке редактора оператор 


PRINT "рР©" 


На этом примере мы показали, что, нажимая одну и ту же 
клавишу на клавиатуре ZX Spectrum в различных сочетаниях с 
двумя управляющими клавишами (Caps Shift и Symbol Shift), можно 
получить на экране разные символы. В примере мы вывели на 
экран и ключевое слово PRINT, и кавычку, и знак ©. На клавише Р 
есть еще одно ключевое слово — TAB, которое также можно «вы- 
удить» с ее помощью. Пока без пояснений специфики использо- 
вания TAB вставим его в оператор PRINT: 


PRINT TAB 10; “pP©” 


AAA «извлечения» TAB нужно одновременно нажать клавиши 
Caps Shift и Symbol Shift, а потом клавишу Р. Знак «точка с запя- 
той» (;), расположенный на клавише О, необходим для нормальной 
работы оператора PRINT и набирается тем же способом, что и 
кавычка: совместным нажатием Symbol Shift и клавиши О. PRINT в 
сочетании с ТАВ напечатает на экране комбинацию из трех симво- 
лов (рР©), но поместит ее не у левого края экрана, а ближе к его 
середине. 


Такой «многоступенчатый» ввод — следствие отказа от побук- 
венного набора. Ведь ключевых слов Зреснат-Бейсика в нес- 
колько раз больше, чем клавиш у Speccy. А еще буквы, знаки. Вот 
и получается по несколько символов и ключевых слов на клавищу. 

Что конкретно появится на экране после нажатия какой-либо 
клавиши, зависит не только от того, какие управляющие клавиши 
были нажаты до или одновременно с ней, но и от режима, в 
котором находится компьютер. Например, в одном режиме компь- 
ютер ждет ввода оператора или номера строки программы, в дру- 
гом — набора цифр или букв. Мы уже убедились в этом: первый 
раз нажали клавишу Р — получили ключевое слово PRINT, второй 
— буквочку р. 


О своих ожиданиях, то есть о режиме, в котором он находится, 
компьютер дает знать по букве, помещенной в курсор (ло ввода 
PRINT в курсор вписывалась буквочка К, сразу после ввода — L, а 
при наборе TAB и знака © — Е). Индикация режима — это вторая 
функция курсора, в дополнение к обязанности указывать место, в 
которое будет поставлен символ либо ключевое слово при нажатии 
клавиши. 


Учитывая все сказанное о клавиатуре, нам не избежать более 
подробного рассказа о том, как ею пользоваться. Вот такой уж 
ореспит-Бейсик — без знания клавиатуры и программу не набе- 
решь. Те, кто читает эту книгу из любопытства или только для 
общего знакомства, без особого ущерба для себя могут пропустить 
следующий раздел. 
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Режимов клавиатуры или так называемых режимов курсора пять. 
Обозначаются они буквами в соответствии с видом курсора: [К], 
[L], [С], [Е] и [G]. 

Перед рассказом о клавиатуре договоримся, что управляющие 
клавиши Caps Shift и Symbol Shift далее будем обозначать, соответ- 
ственно, CS и $$. Одновременное нажатие клавиш! будем записы- 
вать через значок /, последовательное — через +. Например, поря- 
док «извлечения» символа © запишется так: CS/SS+SS/P. 


Режим ключевых слов [Keywords] 





Курсор [К] 


После включения или сброса компьютер устанавливает режим 
набора ключевых слов: выводит в нижний левый угол экрана 
курсор [K] и ждет ввода оператора. В этот режим он автоматически 
переходит и после ввода очередной строки программы или после 
набора двоеточия (:), а также после ввода ключевого слова ТНЕМ 
ем, стр. 33). 

В режиме курсора [К] вводятся ключевые слова и знаки, разме- 
щенные в центральной части клавиши. К примеру, для клавиши Р 
(см. рис. 1) — это PRINT и ". Ключевые слова, написанные чуть 
ниже центра клавиши (PRINT), вводятся простым нажатием 
клавиши. Ключевые слова или знаки, расположенные чуть выше 
центра (") — одновременным нажатием клавиши и SS. Цифровые 
клавиши в режиме [К] выводят цифры (простое нажатие), знаки 
(совместно с $$) и команлы редактора* (совместно с CS). 


Режим основных символов (1еНег} 
Курсор [1] 


После появления на экране очередного ключевого слова компь- 
ютер заменяет курсор [К] на [1], чем дает понять, что ждет ввода 
букв или цифр. Буквы Speccy печатает как большие (прописные), 
так и маленькие (строчные). Маленькие появляются при простом 
нажатии клавиши, а большие — при нажатии одновременно с 
управляющей клавишей CS. = 

В режиме курсора [1] при одновременном нажатии буквенной 
клавиши и SS, так же, как и в режиме [К], на экране появляются 
символы и ключевые слова, расположенные чуть выше центра 
клавиши. 


Управление курсором, вызов на редактирование строки программы ит. д. 


SPECTRUM-BEMCHK 


Режим прописных букв (Capital) 
Курсор [С] 


При необходимости напечатать длинную фразу болыними бук- 
вами можно не удерживать клавишу CS, проще перейти в режим 
печати прописных букв. Для этого нужно нажать клавиши CS/2 
(Caps Lock). Курсор [1] заменится курсором [С]. Возвращается 
компьютер в режим курсора [1] при повторном нажатии CS/2. 


Расширенный режим [Extend Mode} 





Курсор [Е] 


В расширенном режиме на экран выводятся ключевые слова и 
знаки, написанные выше или ниже клавиш (либо — для многих 
самодельных вариантов ZX Spectrum — «на чердаке» и «в подва- 
ле» клавишной наклейки). Для перехода в этот режим нужно 
одновременно нажать управляющие клавиши SS и CS. Переход к 
расширенному режиму сопровождается появлением курсора [Е]. 

Верхние слова и символы вводятся простым нажатием клавиши 
в режиме [Е] (например, TAB на клавише Р), а нижние — с удер- 
жанием клавиши $$ (символ ©). При извлечении нижних ключе- 
вых слов и символов, расположенных на нецифровых клавишах, 
вместо клавиши $$ можно использовать и CS. После вывода слова 
или символа в расширенном режиме компьютер автоматически 
возвращается в режим курсора [L] (либо [С], в зависимости от 
того, какой из них был включен до перехода в режим [Е]). 


Кроме перечисленных режимов работы клавиатуры ([К], [L], [С] 
и [Е], есть еще один — так называемый режим псевдографики 
(курсор [G] — Graphics). Об этом режиме мы расскажем в другом 
месте описания Зреснит-Бейсика (см. стр. 56). 

После знакомства с клавиатурой можно не только читать эту 
книгу, но и «проигрывать» ее содержание на клавишах компьюте- 
ра. Хотя делать это и необязательно. Постараемся так строить 
рассказ, чтобы читать книгу можно было не только дома, но и в 
метро или автобусе, куда не потащишь свой Speccy. 


Несколько слов о последовательности изложения. Сначала в 
общем виде опишем основные операции, выполняемые Spectrum- 
Бейсиком (вывод на экран, математические вычисления, операции 
с символьными значениями, работа с графикой и др.). И лишь 
потом на простеньком примере приступим к собственно прог- 
раммированию. После этого расскажем о некоторых операторах и 
функциях необходимых, но относительно редко применяемых. Да- 
лее — описание системных переменных интерпретатора. В завер- 
шение несколько замечаний на темы «как сократить размер прог- 
раммы» и «как защитить ее от несанкционированного доступа». 
Решайте сами, что читать, что пропустить. Некоторые считают, что 
лучше сразу начать с программирования — попробуйте; если 
будет что непонятно, вернитесь к описанию основ. 
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ВЫВОД СИМВОЛОВ НА ЭКРАН 





Невооруженным глазом видно, что изображения символов на 
экране Speccy строятся из отдельных точек. Эти точки в компью- 
терной терминологии называются пикселями. Символы вписыва- 
ются в стандартные по размерам и положению площадки — знако- 
места. Размер знакоместа — 8х8 пикселей. При соответствующем 
сочетании «зажженных» и «погашенных» пикселей в знакоместе 
вырисовывается тот или иной символ. В качестве примера приве- 
дем «строение» прописной буквы А стандартного набора символов 
ZX Spectrum (рис. 2). 

Знакоместами как сеткой покрыт весь экран, образуя 24 строки 
и 32 столбца. Две последние строки Бейсик использует для набора 
и редактирования программ и вывода сообщений. Эти строки 
имеют собственное название — служебный экран. Остальные 22 
строки называются основным экраном (рис. 2). 


Каждое знакоместо имеет свою «прописку» — координату. 
Отсчет ведется от верхнего левого знакоместа, которому присвое- 
ны координаты (0, 0), — нулевая строка, нулевой столбец. С этого 
знакоместа начинает печатать первый выполненный после сброса 
компьютера оператор РАМТ. 

Если при печати текст заполняет все 32 знакоместа строки, то 
вывод символов автоматически переносится на начало следующей 
строки. 

Каждый последу- ee 
ющий PRINT начинает экран 
ВЫВОД СИМВОЛОВ С НОВОЙ 
строки, если, конечно, ь 
не было никаких AOTIOA- 29 30 31 
нительных указаний. 
Например, если преды- 
длущий оператор PRINT за- 
вершгился точкой с запя- 
той (), то следующий 
PRINT лолжен продолжить 
начатое дело и печатать 
со следующего знакоме- 
ста той же строки*: 





PRINT "2Х"; 

ZX 

PRINT " Spectrum” Служебный 
ZX Spectrum si slate 


Рис. 2. Строение символьного экрана. 


В таком виде мы будем приводить примеры, выполняемые в непосредственном 
режиме: результат, выводимый на экран, будем выделять более жирным шриф- 
том. Указание на то, что для выполнения оператора нужно нажать клавишу Enter, 
а также сообщение о нормальном завершении работы (OOK) будем опускать. 
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Строка, выводимая вторым оператором PRINT, начинается зна- 
ком «пробел», название которого говорит само за себя — он очи- 
щает знакоместо. Для управления оператором PRINT кроме точки с 
запятой используются и другие знаки: запятая (,) и апостроф ('), HO 
информацию о них «сошлем» в конец главы (см. стр. 57). 

Основными средствами, указывающими оператору PRINT по- 
зицию экрана, с которой нужно начинать вывод символов, являют- 
ся ключевые слова ТАВ и АТ. | 

С ТАВ мы уже встречались и знаем, что после него ставится 
некое число — параметр. Параметр указывает знакоместо, в кото- 
рое надо поместить первый выводимый на экран после ТАВ сим- 
вол. Значение параметра соответствует порядковому номеру зна- 
коместа в строке и может принимать значения от 0 AO 31 (по 
количеству столбцов экрана). 

Ключевое слово AT так же, как и TAB, используется совместно с 
оператором PRINT. Формат его подразумевает наличие после ключе- 
вого слова двух параметров, разделенных запятой. Значения этих 
параметров задают координаты знакоместа, с которого следует 
начинать вывод: первый — номер строки (0...21), второй — номер 
столбца (0...31). 

Ключевые слова ТАВ и АТ могут быть вставлены в любое место в 
строке после PRINT и должны отделяться от данных точкой с запя- 
ТОЙ: 

PRINT TAB 9; "BASIC"; АТ 0,0; “Spectrum-” 
Spectrum-BASIC 


МАТЕМАТИЧЕСКИЕ РАСЧЕТЫ 





Алгебраические действия 





Первое представление, получаемое многими о компьютерах, 
сводится к пониманию того, что это нечто считающее. Такое пред- 
ставление недалеко от истины. Сам по себе компьютер только и 
умеет, что считать. Все осталь- 
ное — происки программистов. 

Для демонстрации матема- 
тических способностей Speccy 
воспользуемся все тем же опе- 
ратором РАМТ. Выполним 


PRINT 2+2 
На экране появится цифра 4 
— результат вычисления число- 
вого выражения, записанного 
после PRINT. Попробуем задать 
компьютеру задачку посложнее: 


PRINT 2*(21.3/3—5.1)+212 
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МАТЕМАТИЧЕСКИЕ РАСЧЕТЫ 


Он мгновенно выдаст результат — 8. 
В этом примере были задействованы все алгебраические опе- 
рации, понятные Зрескат-Бейсику: 


+ сложение, 

— вычитание, 

+ умножение, 

/ деление, 

1 возведение в степень. 


При записи чисел вместо запятой в десятичных дробях принято 
использовать точку. Скобки играют ту же роль, что и в обычных 
математических выражениях. 

Последовательность вычислений также не отличается от приня- 
той в математике: сначала подсчитываются значения выражений, 
взятых в скобки, внутри скобок в первую очередь выполняются 
операции возведения в степень, умножения, деления, потом сло- 
жения и вычитания. 


Числовые функции 
SQR, EXP, LN, SIN, COS, TAN, ASN, ACS, АТМ 





Функция в программировании — это специальная программа, 
преобразующая по заданному правилу некое исходное значение, 
называемое аргументом, в другое значение, называемое результа- 
том. Принято говорить: «Функция возвращает результат». 


Наиболее привычными и понятными функциями являются ма- 
тематические. Бейсик ZX Spectrum предоставляет в наше пользо- 
вание набор самых необходимых из них: 


SOR — квадратный корень, 
ЕХР — экспонента, 

LN — натуральный логарифм, 
SIN — CHHYC, 

cos — KOCHHYC, 

TAN = тантенс. 

ASN — арксинус, 

ACS — арккосинус, 

ATN — арктангенс. 


После каждого из перечисленных ключевых слов должен стоять 
аргумент функции — число либо выражение, которое может вклю- 
чать в себя в том числе и функции. Выражения необходимо заклю- 
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чать в скобки. AAA примера, вычислим с помощью PRINT следующее 
выражение: 


PRINT 1+COS PI—EXP (2—1.3) 
—2.0137527 


Здесь аргументом функции СО$ является константа Р!. Вместо 
нее при вычислениях компьютер подставляет значение числа 
«пи», равного 3,1415927. Набирается Р! обычным, принятым для 
ZX Spectrum способом — целиком ключевым словом (клавиши 
CS/SS+M). 

Аргументы тригонометрических функций подставляются в ради- 
анах. AAA перевода числа из градусов в радианы надо умножить его 
на PI/180, а для обратного преобразования умножить на 180/Pi. 


В алгебраических расчетах, кроме перечисленных стандартных 
функций, Зреснат-Бейсик позволяет использовать несколько 
специальных: 


АВ$ — вычисление абсолютного значения, 
INT — округление AO ближайшего меньшего целого, 
SGN — определение знака аргумента. 


Все функции бресиит-Бейсика подробно описаны в «Спра- 
вочнике». 


ОПЕРАЦИИ С СИМВОЛАМИ 


TO, LEN, STR$, VAL 





Каждый язык программирования высокого уровня и, конечно 
же, Бейсик, кроме обработки числовых значений должен уметь 
преобразовывать и символьные данные — строки, составленные 
из букв, цифр и прочих знаков. 


Простейшее действие, которое можно выполнить над символь- 
ными значениями, — это сложить их с помощью обычного знака +: 


PRINT "BAS"’+"IC" 
BASIC 


Результат такой же, как если бы мы попросили компьютер 
напечатать слово BASIC целиком (PRINT "ВАЗС"). 

В Бейсике ZX Spectrum можно выполнить операцию, обратную 
сложению: выделить из символьного значения некоторую его часть 
— подстроку. Это действие также называют сечением. Для его 
выполнения после строки символов в скобках через ключевое 
слово ТО указывается, с какого и по какой символы требуется 
выделить подстроку: 


PRINT "АВСОЕЕ"(2 TO 5) 
BCDE 


Если подстрока выделяется, начиная с первого символа, TO MOX- 
но писать сокращенно: (ТО 5). И, аналогично, если подстрока 
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ОПЕРАЦИИ С СИМВОЛАМИ 


выделяется AO конца символьной строки, то разрешается записать: 
(2 ТО). Допустимо задавать сечение и вообще без параметров: 


PRINT "АВСОЕЕ"(ТО) 
АВСОЕЕ 


Последнее сечение можно было записать и без ТО: 
ABCDEF() 


Слово ТО также можно опустить, если выделяется лишь один 
символ, то есть вместо (3 ТО 3) использовать (3): 


PRINT "ABCDEF"(3) 
Cc 


Если границы сечения выходят за пределы строки, компьютер 
выдаст сообщение об ошибке. Попробуйте ввести: 


PRINT "ABCDEF"(2 TO 10) 


— и получите внизу экрана сообщение Subscript wrong (не- 
правильный индекс). 


Вообще, если компьютеру что-нибудь не нравится в наших 
действиях, он будет ругаться различными английскими словами. 
Перевод сообщений об ошибках и описание ситуаций, в которых 
они возникают, можно посмотреть в «Справочнике». 


С помощью функции LEN можно выяснить длину символьной 
строки, то есть определить, сколько позиций займет она на экране 
при печати*: 


PRINT LEN " SINCLAIR " 
10 


Пробелы также считаются CHM- 
волами и учитываются при рас- 
чете длины. 

Функция STR$ преобразует 
числовые значения в символьные 
(«прицепляет» к числу кавычки). 
Например, STR$3 возвращает 
символьное значение "3". 

Можно рассчитать его длину: 


PRINT LEN STR$ 3 
1 





При необходимости можно выполнить преобразование, обрат- 
ное функции STR$, — превратить строковое значение в числовое. 
Нужно только воспользоваться функцией VAL: 


PRINT VAL "5.25"—2.25 
3 


* 
Это не совсем точно: строка может содержать символы, которые не выводятся на 


экран. 
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VAL «оторвала» кавычки, пре- 
вратив строковое значение в 
нормальное число, с которым 
можно производить математи- 
ческие операции. 

Функция VAL может обраба- 
тывать и числовые выражения, 
представленные как символь- 
ные значения. Например: 


PRINT VAL "3*3+1" 
10 


Если VAL применить к сим- 
вольному значению, не имею- 
щему ничего общего с числами, 
то компьютер воспримет это как 
ошибку. 





Символы и их КОДЫ 
CODE, CHR$ 





Каждая буква, цифра, знак — вообще все, что мы называем 
символами, кроме ‘визуального представления на экране (и 
клавиатуре), имеет еще и свой числовой эквивалент — код. Имен- 
но последсвательность этих кодов сохраняется в памяти компьюте- 
ра при записи символьного значения. 

ZX Spectrum так организован, что ключевые слова Бейсика 
(РАМТ, VAL и т. д.) также являются отдельными знаками, каждый CO 
своим кодом*. 

Всего в ZX Spectrum опре- 
AeAeHO 256 символов с кода- 
ми от 0 до 255. Полный на- 
бор и тех и других можно пос- 
мотреть в таблице символов 
на стр. 100. 


Выяснить, какой код со- 
ответствует символу или, на- 
оборот, символ — коду, мож- 
но и не пользуясь таблицей, а 
с помощью функций CODE и 
CHRS: 


PRINT CODE "А" 
65 





* Это существенно сокращает объем памяти, занимаемый бейсик-программой. 
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Так мы узнали, что код заглавной буквы А равен 65. Или, 
наоборот: 


PRINT СНЕ$ 65 
A 


Что и требовалось проверить — коду 65 соответствует символ A. 

Если символьное значение, подставляемое вслед за CODE, со- 
стоит больше чем из одного символа, функция возвратит код 
первого символа. 


ГРАФИКА 


PLOT, ORAW, CIRCLE, CLS 





Оператор PRINT за одно элементарное действие — вывод символа 
— воздействует сразу на 64 точки экрана (8х8). Это, конечно же, 
хорошо с точки зрения ускорения процесса вывода символьной 
информации, но хотелось бы иметь возможность «обращаться» и к 
отдельным точкам (пикселям). 

оресциит-Бейсик говорит: «Пожалуйста», — и предоставляет в 
наше распоряжение оператор PLOT. С его помощью можно 
«включить» любой пиксель основного экрана*. Для оператора PLOT 
не существует разделения экрана на знакоместа. Для него экран — 
поле высотой 176 и шириной 256 пикселей. Каждый пиксель 
имеет свои координаты, не координаты знакомест в строках и 
столбцах, а графические координаты: 


x — по горизонтали (0...255), 
у — по вертикали (0...175). 


Начало отсчета системы координат (пиксель с координатами 
х=0, у=0) находится в нижнем левом углу основного экрана. Об- 
ратите внимание на то, что отсчет вертикальной графической 
координаты идет снизу вверх, в отличие от нумерации символьных 
строк, которая производит- 


ся от верха экрана (см. + 
рис. 3). Основной 


После получения некото- ik (0,175) (255,175) 


рого представления об уст- 
ройстве графического экра- 
на можно вернуться к опе- 
ратору PLOT, Нетрудно 
предположить, что для рабо- 
ты ему нужны два па- 
раметра — координаты точ- 
ки. Они записываются че- 
рез запятую после ключево- 
го слова: сначала х, потом у. 


Служебный 
экран 








Рис. 3. Строение графического экрана. 


Операторам, занимающимся графическими построениями, недоступны две 
строки служебного экрана. 
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К примеру, оператор 
PLOT 130, 80 высветит точку 
почти по центру экрана. 


Ставя точку за точкой с 
помощью PLOT, в принципе, 
можно нарисовать чудесную 
картинку. Попробуйте. Oa- 
нако вряд ли у кого-нибудь 
хватит терпения выставить 
более десятка точек. Кое -B 
чем поможет сам Бейсик. 
Например, построение от- 
резков и дуг берет на себя 
оператор DRAW (от англ. 
рисовать, чертить). 

DRAW при проведении 
прямой использует лишь два 
параметра: расстояние в 
пикселях по хи по y OT некой 
начальной точки до конеч- 
ной точки строящейся ли- 
нии. Следовательно, пара- 
метры DRAW задают только направление и длину отрезка, HO не 
устанавливают его начальную точку. Выполнив, например, опера- 
тор DRAW 127, 87 сразу после включения компьютера, увидим, что 
линия будет проведена к середине экрана от начала координат 
(0, 0). Следующий оператор, скажем, DRAW 0, —50 проведет отрезок 
длиной в 50 пикселей вертикально вниз от конца предыдущей 
линии. Вообще, началом линии для DRAW всегда является послел- 
няя выставленная на экране точка. На- 
глядней и проще всего начальную точку 
можно задать с помощью оператора PLOT. 





Если к оператору DRAW через запятую a 
добавить еще один параметр, то Ha экра- TP. 
не появится дуга. Этот дополнительный 
параметр задает величину угла (в ради- a _ 


анах), который будет образован дугой. 
Знак параметра определяет направление 
построения дуги: положительный — про- 
тив часовой стрелки, отрицательный — 






“~, 
по часовой. Принцип получения началь- ыы 
ной и конечных точек дуги остается тем ve < 
же, что и при построении отрезка. По- м SUA 






пробуем: 


PLOT 150, 100 
DRAW —100, 0, Pl 


it? 


Получим полуокружность с центром в 
точке (100, 100) и радиусом 50 пикселей. 
С константой PI мы уже сталкивались: 
она подставляет вместо себя число «пи». 
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Используя конструкцию с PLOT и DRAW, 
можно, конечно, построить и полную окруж- 
ность. Но зачем, когда в Бейсике существует 
специально «обученный» для этого оператор 
CIRCLE? Его параметры очевидны: координа- 
ты центра и радиус окружности. Например, 
нарисуем окружность с центром в середине 
экрана и радиусом 50: 


CIRCLE 127, 87, 50 


Оператор CIRCLE строит окружности ло- 
статочно точно, но уж очень медленно. 


Очистить экран от любого изображения 
(как от графики, так и от текста), то есть 
«выключить» все пиксели, можно опе- 
ратором CLS, к описанию которого мы еще 
вернемся. 





ЦВЕТ 





Раскраска изображений 
PAPER, INK, BORDER 


зреснат-Бейсик позволяет раскрашивать экран монитора с 
использованием восьми цветов: черного, синего, красного, фиоле- 
тового, зеленого, голубого, желтого и белого. 


Изображение на экране строится из сочетания включенных и 
выключенных пикселей, причем как одни, так и другие Spectrum- 
Бейсик позволяет окрашивать в различные цвета. Цвет выключен- 
ных пикселей называется цветом фона, включенных — цветом 
тона. Следовательно, цвет фона — это цвет «пустого» (без изобра- 
жения) экрана, цвет тона — цвет окраски символов или гра- 
фических объектов, выводимых на экран. 


Задаются цвета фона и TO- 
на, соответственно, операто- 
рами PAPER (бумага, англ.) и 
INK (чернила). После каждого 
из них ставится параметр — 
код требуемого цвета: 


— черный, 

— синий, ` 

— красный, 

— фиолетовый, 
зеленый, 

— голубой, 

— желтый, 

— белый. 


WOORWHHO 
| 
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Например, после выполнения оператора 
РАРЕК 6 


знакоместа, в которые осуществляется вывод символов или гра- 
фики, будут окрашиваться в желтый цвет. 

Окрасить же весь основной экран можно, лишь очистив его с 
помощью оператора CLS. Он, выключая пиксели экрана, окра- 
шивает их в текущий (заланный оператором PAPER) цвет фона. 
При работе в непосредственном режиме CLS можно заменить по- 
вторным нажатием Ещег. 

После окраски основного экрана становится четко виден бордюр 
— поле по краям экрана. Бордюр тоже можно окрасить в один из 
восьми цветов. Делается это с помощью оператора BORDER. Вы- 
полним: 


BORDER 6 
— и бордюр (так же, как и весь экран) станет желтым. 
После задания цвета тона, например, оператором 
INK 1 


все выводимое на экран изображение — символы AH, графика ли 
— все будет окрашиваться в синий цвет. Попробуем: 


PRINT "ZX Spectrum” 
CIRCLE 127, 87, 50 


На экране синим по желтому будет напечатано ZX Spectrum и 
начерчена окружность (по желтому в том случае, если до этого 
выполнялся предыдущий пример). 


Цветовые эффекты 
BRIGHT, INVERSE, FLASH, OVER 





Изображение на экране Speccy может быть не только раскраше- 
но, но и иметь две градации яркости: нормальную и повышенную 
(оператор BRIGHT). Кроме того, оно может выводиться с инверсией: 
цвет фона меняется на цвет тона, а цвет тона на цвет фона (INVERSE), 
или сделано мерцающим: с меняющимися через определенный про- 
межуток времени цветами тона и фона (FLASH). Все перечисленные 
операторы используются с одним параметром, принимающим зна- 
чение либо 1 — включение режима, либо 0 — выключение. 

Это элементарно, но на пальцах не объяснишь. Лучше вы- 
полнить операторы BRIGHT 1, FLASH 1, INVERSE 1 и попробовать вы- 
ВОДИТЬ Ha экран текст, задавая различные значения цветов тона и 
фона. 


Обычно, если на экран помещается новое изображение, на- 
пример, в знакоместо впечатывается символ, прежнее изобра- 
жение стирается. Но в 5ресиит-Бейсике имеется оператор OVER , 
после выполнения которого компьютер переходит в режим, позво- 
ляющий накладывать «новое» изображение на «старое». При этом 
точки, в которых изображения совпадают, принимают цвет фона. 
Включение и выключение режима наложения, как и режимов 
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инверсии и мерцания, задаются, соответственно, значениями 1 и 
0, ставящимися после OVER. 

Кроме упомянутых значений, указываемых после ключевых 
слов PAPER, INK (0...7) и BRIGHT, INVERSE, FLASH (0 и 1), может исполь- 
зоваться число 8, называемое параметром прозрачности. Напри- 
мер, после выполнения последовательности PAPER 8, INK 8, BRIGHT 8, 
INVERSE 8 и FLASH 8 оператор 


PRINT АТ 10,10;"*" 


впечатает звездочку (*) в 10-й столбец 10-й строки в цветах, ранее 
установленных для этого знакоместа. Если, скажем, в этом знако- 
месте размещался мерцающий символ (FLASH 1) синего цвета 
(INK 1) на желтом фоне (PAPER 6) с повышенной яркостью (BRIGHT 1), 
то и звездочка будет выведена в этих же цветах. 

После PAPER и INK может стоять также параметр 9. INK 9 предо- 
ставляет компьютеру самостоятельно выбрать цвет тона, который 
контрастен цвету фона: черным по светлому фону (зеленому, 
голубому, желтому и белому) или белым по темному (черному, 
красному, синему и фиолетовому). Таким же образом действует 
РАРЕК 9, устанавливая цвет фона контрастным цвету тона. 


Постоянные и временные атрибуты экрана 


Прежде всего поясним значение нового термина, появившегося 
в заголовке, — атрибуты экрана. Это общее название для цветов 
фона, тона, режимов яркости и мерцания, устанавливаемых для 
каждого знакоместа экрана. Задавая цвета и перечисленные ре- 
жимы, мы говорим, что задаем атрибуты. Теперь поясним, почему 
они бывают постоянные и временные. 

До сих пор мы использовали ключевые слова PAPER, INK, BRIGHT 
и FLASH как самостоятельные операторы. Их действие распростра- 
нялось на весь экран и длилось до того момента, пока эти операто- 
ры не выполнялись с новыми параметрами. То есть мы работали с 
постоянными атрибутами экрана. * 

Однако часто бывает необходимо напечатать каким-либо цветом 
лишь одно слово или символ, не влияя на окраску последующих, 
то есть не меняя значения постоянных атрибутов. Сделать это 
можно, используя ключевые слова, управляющие цветом, в качест- 
ве параметров оператора PRINT. 

Записываются они так же, как и АТ и ТАВ — в произвольном 
месте данных, предназначенных для вывода на экран, отделяясь от 
них точками с запятой. К примеру, после выполнения строки 


PRINT "+"; INK 4; "+"; PAPER 5; "+" 


на экране появятся три звездочки. Цвета фона и тона первой из 
них будет соответствовать ранее определенным постоянным 
атрибутам (если они не были специально заданы, то звездочка 
будет напечатана черным по белому, то есть цветами, устанавлива- 
емыми компьютером сразу после включения питания). Вторая 
звездочка окрасится в зеленый тон, но с тем же фоном. Третья 
пропечатается зеленым по голубому. Установленные в строке вре- 
менные атрибуты, в ланном случае цвета тона и фона, действуют 
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только до конца PRINT или AO появления в строке новых парамет- 
ров. Если после этого мы вновь зададлим PRINT без параметров 
(PRINT "*"), то убедимся, что временные атрибуты никак He по- 
влияли на постоянные. 


Ключевые слова INVERSE и OVER тоже могут использоваться в 
операторе РАМТ, переключая режим инверсии и совмещения лишь 
на время его работы. 


Все графические построения (точки, линии, луги, окружности} 
также можно производить не только в постоянных цветах (как ло 
сих пор мы делали), но и во временных. Аля этого операторы, 
задающие атрибуты экрана (INK, PAPER и прочие}, ставятся сразу 3a 
ключевым словом графического оператора и отлеляются от пара- 
метров точкой с запятой. Например: 


PLOT 32, 80 
DRAW 32, 0 
DRAW INK 4; 32, 0 
DRAW 32, 0 


В результате выполнения этих операторов на экране высветятся 
три отрезка. Крайние будут окрашены в постоянный цвет тона 
(черный по умолчанию). Средний — в соответствии с временным 
параметром INK — в зеленый. 

Но не все так радужно в королевстве цветной графики 
ZX Spectrum. Проведем по экрану ABe диагонали: красную и си- 
нюю. Чего проще: 


PLOT 0, 0 
DRAW INK 2; 255, 175 
PLOT 255, 0 


DRAW INK 1; —255; 175 


Посмотрев же Ha экран, замечаем не очень приятный эффект: в 
районе точки пересечения первая проведенная диагональ (крас 
ная} перекрасилась в синий цвет. 

Происходит это из-за того, что атрибуты экрана (цвета фона и 
тона, яркость и мерцание} в ZX Spectrum устанавливаются не AAR 
каждой точки, а целиком для знакоместа — одинаковые атрибуты 
Аля каждой из 64 его точек (8х8}. И, естественно, если через 
знакоместо проведена линия с новым цветом тона, то все ранее 
установленные точки в этом знакоместе перекрасятся. Эта особен- 
ность компьютера накладывает ограничения на разнообразие 
окраски изображения: в пределах одного знакоместа невозможно 
использовать более двух цветов. 


Операторы INVERSE и OVER также можно использовать и в каче- 
стве параметров графических операторов. Операторы с INVERSE 1 
будут честно ставить точки или прочерчивать линии цветом фона, 
с OVER 1 на фоне будут рисовать тоном и, наоборот, на тоне фоном. 
Операторы, в которых одновременно размещены и INVERSE 1, и 
OVER 1, не будут менять изображение на экране. 
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До сих пор, знакомясь с работой операторов Зреснит-Бейсика, 
мы вводили их в непосредственном режиме, то есть наше требо- 
вание что-либо сделать компьютер выполнял сразу же после на- 
жатия клавиши Enter. Аля выполнения в этом режиме следующего 
оператора нужно опять набирать ключевое слово, парё`етры и 
опять нажимать Enter. Если бы компьютер мог работать только так, 
то он ничем принципиально не отличался бы от простейшего 
калькулятора, на котором каждое действие задается и выполняется 
отдельно. 

Именно способность работать по программе, то есть выполнять 
один за другим операторы, расположенные в заданной после- 
довательности, делает компьютер компьютером. Эта последователь- 
ность операторов и называется компьютерной программой. 

Простеиший способ заставить компьютер выполнить несколько 
операторов подряд без остановки — это после набора оператора 
поставить двоеточие, затем ввести слелдующий, а закончить после- 
довательность нажатием клавиши Ещет: 


PRINT "А”;: PRINT "В";: PRINT “С”; [Enter] 
ABC 


Олнако приведенная строка —- еше не программа. Spectrum He 
может завомнить эту последовательность операторов и выполнить 
вновь. Да и не все операторы Бейсика можно записать вот так, в 
одну строчку. Не говоря уж о том, что читать такую послелователь- 
ность не очень удобно. * 


Программа составляется из множества строк, в каждой из которых 
записан один или несколько операторов. Строкам присваиваются 
«адреса» — номера от 1 ло 9999. При запуске программы строки 
выполняются одна за другой в порялке возрастания номеров. 


Tak, приведенная последовательность операторов PRINT в виде 
программы запишется следлуютцим образом: 


10 PRINT “A”; 
20 PRINT "В"; 
30 PRINT "С"; 


Набор программы 


Строки программы набираются точно так же, как и онераторы в 
непосредственном режиме, только перед первым оператором в 
строке обязательно ставится ее номер. После завершения набора 
нажимается клавиша Enter, но строка не выполняется, а переписы- 
вается в верхнюю часть основного экрана, освобождая место в 
строке редактора для ввода следующей. Именно номер в начале 
строки сообщает компьютеру, что набранный оператор или после- 
ловательность операторов являются частью программы, и их не 
следует выполнять сразу, а нужно поместить в память компьютера 
для хранения. 
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Запуск программы 
RUN 





Запускается программа опе- 
ратором RUN, вводимым в не- 
посредственном режиме. После 
выполнения нашей первой 
программы на экране увидим 


АВС 


и знакомое нам сообщение 
О OK, 30:1. Смысл его тот же, 
только цифры другие. Надеем- 
ся, понятные — работа законче- 
на на первом операторе строки 
с номером 30. 





RUN без параметров запускает программу с первой строки (со 
строки с наименышим номером). Можно «стартовать» и с любой 
другой, указав ее номер. Например, оператор RUN 20 запустит 
программу с 20-й строки, и на экране появится лишь часть текста: 


ВС 


Редактирование программы 
LIST 


При выполнении программы существенным является лишь по- 
рядок следования номеров строк. Поэтому для удобства последую- 
щего изменения программы (например, добавления новых строк) 
нумерацию производят через 5 или, чаще, через 10 номеров. 
Вставляются строки в программу просто: набирается строка с 
номером большим, чем номер строки, после которой нужно сделать 
вставку, но менышцим, чем номер послелдующей, и нажимается 
Enter. Введем строки 


15 PRINT "*"; 
25 PRINT "+"; 


и наша первая программа приобретет слелующий вид: 


10 PRINT "А"; 
15 PRINT "+"; 
20 PRINT "В"; 
25>PRINT "*"; 
30 PRINT "С"; 


После ее выполнения (RUN) на экране появится 
А*В*С 
Допустим, нам потребовалось изменить содержание какой- 
нибуль строки программы (а этим только и приходится заниматься 


при ее отладке). Указать Бейсику строку, которая требует ре- 
дакции, можно, перемещая с помощью курсорных клавиш CS/6 и 
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С$/7 значок >, расположенный в тексте программы на основном 
экране между строкой и ее номером. Этот значок называется 
указателем текущей строки и, пока его «не трогают», указывает на 
последнюю введенную строку (в нашем случае на строку 25). 
Установим указатель Ha 30-ю строку и нажмем клавиши CS/1 
(Edit). Строка скопируется на служебный экран, туда, где она 
ранее набиралась и где ее теперь можно редактировать. Как это 
делается, мы уже описывали (см. стр. 9). Заменим, например, в 
этой строке букву С на О. 


Когда все необходимые изменения в строке произведены, на- 
жмем Enter. Отредактированная строка перепишется на прежнее 
место (если, конечно, не был изменен ее номер). 

Пока строка находится на редакции (Enter не нажата), можно 
еще отказаться от внесенных в нее изменений. Нужно нажать CS/1 
(Edit), и на редактирование будет вызвана строка, в которой в 
данный момент расположен указатель текущей строки. Обратите 
внимание на то, что указатель текущей строки можно перемещать 
и во время редактирования строк. 


Для удаления строки из программы 
совсем необязательно вызывать ее на 2 


< 
редакцию и стирать весь ee текст. Ao- Ra 
статочно ввести ее номер без каких- ся 
либо операторов. Введем, к примеру, Vices 
Ui PAE 
10 vi 
— и из программы исчезнет 10-я eK 
Nj ° 
строка — и номера He останется. Про- $ | 


падет с экрана и указатель текущей 1 
строки (возвращается он с помощью \ @ 
клавиш CS/6 и CS/7). als || 

И еще одна существенная, но про- м 


стая операция, которую необходимо 
освоить для успешной отладки прог- 
раммы — вывод листинга, то есть рас- 
печатка на экране фрагментов прог- 
раммы. Это просто необходимо, если 
программа состоит из многих десят- 
ков, а то и сотен строк, которые, есте- 
ственно, невозможно увидеть на экра- 
не сразу все. Начать вывод листинга с 
первой строки программы можно с 
помощью оператора LIST. После его 
выполнения компьютер представит на 
экране первую страницу листинга. 
Если на ней поместилась не вся прог- 
рамма, то он спросит: scroll? (прокру- 
тить?). AAA продолжения просмотра 
(«прокрутки» экрана} нажимается лю- 
бая клавиша, кроме Space и CS/Space. 
После нажатия на эти клавиши вывод 
листинга прекращается. 
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Можно попросить компьютер вывести листинг программы, Ha- 
чиная с любой строки, указав ее номер после ключевого слова, 
например: - 

LIST 20 


Причем Ha упомянутую строку автоматически будет установлен 
указатель текущей строки. Таким образом, команда LIST позволяет 
быстро «перебрасывать» указатель в любое место программы. 

Вполне может быть, что номер требуемой строки забылся. Не 
стоит расстраиваться. Если мы и ошибемся, LIST найдет строку с 
ближайшим большим номером и начнет вывод листинга с нее. 


Переменные 
LET 





До сих пор мы работали с числовыми и символьными зна- 
чениями, записанными в явном виде. Результаты действий не 
запоминали, а только выводили на экран монитора. В дальнейшей 
работе эти результаты использоваться не могли. Для вычисления 
выражения с новыми данными приходилось набирать и выполнять 
новую строку. То есть действовать так, как будто перед нами не 
компьютер, а калькулятор. Но даже в калькуляторах есть такая 
операция, как запоминание числа. Занесенное в память, оно может 
быть извлечено оттуда нажатием одной клавиши и использовано в 
дальнейших расчетах. И конечно же, написание даже самых про- 
стейших компьютерных программ немыслимо без сохранения ис- 
ходных данных и промежуточных результатов. Причем запоминать 
надо не одно, не два числа, а часто сотни и тысячи. И не только 
числа, но и слова — строки символов. 


Бейсик для хранения 
числовых и символьных 
значений в памяти компью- 
тера отводит специальную 
область. Заносятся значения 
туда с помощью ключевого 
слова LET. A для того чтобы 
ничего не перепутать, каж- 
дому Из «сосланных» на 
хранение значений присва- 
ивается собственное имя. 
Делается это так: 


LET B=3 


Этой строкой мы попро- 
сили компьютер записать в 
память число 3, а место, ку- 
да записано число, «обоз- 
вать» именем В. Теперь, что- 





28 


a 


2 erro 


SS eer 


sll it Питт Кут ee 


OS a Oe aa! a 


ПРОГРАММИРОВАНИЕ 





бы извлечь число, нужно просто «позвать» его по имени. На- 
пример, выполним оператор 


РАМТ В 


— и на экране появится цифра 3. Имя можно подставить и в 
выражение. При вычислении значения выражения компьютер, 
наткнувшись на имя, заменит его числом из памяти: 


PRINT (B+15)/B 
6 


Значение, занесенное в память, будет храниться там до тех пор, 
пока мы либо не сбросим (выключим) компьютер, либо не вы- 
полним операторы RUN или CLEAR (06 этом операторе позже), либо 
не запишем под этим же именем другое значение. К примеру, 
выполним: 


LET В=5 


Именно потому, что записанные в память значения можно в 
любое время изменять, имена, под которыми они хранятся, назы- 
ваются именами переменных. Сейчас мы работали с переменной по 
имени В, или просто — с переменной В. 

Обратите внимание на то, что переменная в языках програм- 
мирования — это нечто другое, чем переменная величина в мате- 
матических уравнениях. С точки зрения математики многие опе- 
рации, производимые с программными переменными, бессмыс- 
ленны, например, вот такая, часто используемая в программи- 
ровании зацись: 


LET B=B+1 


Приведенный оператор просит компьютер увеличить Ha еди- 
ницу содержимое переменной В. 


Переменные, предназначенные для хранения чисел, называют- 
ся числовыми. Имя числовой переменной может состоять из любого 
количества цифр и латинских букв, но не должно начинаться с 
цифры. Его можно записывать и строчными, и прописными бук- 
вами. Пробелы в имени игнорируются. Приведем примеры имен 
числовых переменных: 


A; A123; Rub; very long name; very long name 


Для хранения символьных значений используются, соответст- 
венно, символьные переменные (их иногда также называют строко- 
выми). Имя символьной переменной может состоять только из 
одной буквы и знака $ (доллар). Строчные и прописные буквы в 
имени не различаются. Присвоить символьной переменной зна- 
чение можно с помощью того же ключевого слова LET: 


10 LET A$="BASIC” 


— а извлечь из памяти, подставив имя переменной, например, в 
PRINT: 


20 PRINT A$ 
RUN 
BASIC 
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Символьная переменная может быть приравнена «пустой стро- 
ке», то есть не содержать ни одного символа: 


10 LET A$="" 

20 PRINT "+жж"; A$: "##H" 
RUN 

жжж Ht HH 


То, что переменная A$ не содержит ни одного символа, хорошо 
видно по отсутствию интервала между символами *** и ###. 

Все числовые и символьные функции будут нормально рабо- 
тать, если вместо конкретных значений им «подсовывать» имена 
переменных. Конечно, при условии, что до этого переменная была 
определена, то есть ей ранее уже присвоено какое-либо значение. 
Иначе компьютер выдаст сообщение об ошибке: Variable not found 
(переменная не найдена). 


Теперь у нас вполне достаточно сведений, чтобы, наконец-то, 
перейти к написанию программ. 

Составим элементарную программу, пересчитывающую некую 
сумму в рублях в доллары. По ходу ее написания мы будем зна- 
комиться с новыми операторами и функциями Бейсика. 

Рассчитаем сначала, сколько долларов составляет установлен- 
ная нашим государством минимальная зарплата. В момент 
написания этой книги она равнялась 900 рублям в месяц. Введем 
переменные: Rub, в которую будем заносить сумму в рублях, Dol — 
для ее долларового эквивалента и Kurs — курс доллара, то есть цена 
одного доллара в рублях (переменную Kurs пока приравняем к 130, 
что соответствует нынешнему курсу доллара). 


5 ВЕМ Программа пересчета рублей в доллары* 
10 LET Kurs=130 
50 LET Rub=900: PRINT АТ 0,1; "Текущий курс: "; Kurs; " рублей за 
1” 
70 LET Dol=INT(Rub/Kurs*100+0.5)/100: REM Pacuer 
75 PRINT АТ 1, 1; Rub; " руб. — $"; Dol 


Сам расчет предельно прост и умещается в коротенькой строчке 
под номером 70. Операция с умножением на 100, извлечением 
целой части функцией INT (см. стр. 16) и делением на 100 необ- 
ходимы для округления долларовой суммы до центов. Остальные 
строки заняты вводом и выводом информации**. 

Запустив программу, увидим на экране: 


Текущий курс: 130 рублей за $1 
900 руб. — $6.92 


В примерах программ, приведенных в этой книге, используется текст на русском 
языке. Делается это для наглядности, хотя не на всех компьютерах есть возмож- 
ность его набрать. При вводе программ русские слова можно заменить 
английскими, а комментарии просто опустить. 


Если Вы решили отрабатывать все примеры на компьютере и хотите сохранить их 
на магнитной ленте, то загляните в раздел «Работа с магнитофоном». 


xk 
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Пояснения к тексту программы 
РЕМ 


В 5-й строке «всплыл» новый оператор REM (от англ. remark — 
пометка). Он сообщает компьютеру, что в этой строке ему делать 
нечего, можно спокойно переходить к выполнению следующей. 
РЕМ можно поставить и после двоеточия в конце любой строки, как 
это сделано в строке 70. Вслед 3a REM программист пишет для себя 
или для других программистов комментарии — пояснения, каса- 
ющиеся работы программы. 


Ввод данных с клавиатуры 
во время выполнения программы 
INPUT 





Хотя написанная нами программа верно пересчитывает рубли в 
доллары, работать с ней неудобно. Для перевода другой суммы, да 
еще при постоянно меняющемся курсе, ее надо редактировать: 
изменять числа в строках 10 и 50 и снова запускать. 

В ситуации, когда данные, необходимые для работы программы, 
нужно вводить по ходу ее выполнения, поможет оператор INPUT. В 
простейшем виде он записывается так: 


10 INPUT Kurs 


Натолкнувшись Ha него, 
компьютер останавливает вы- 
полнение программы, вы- 
ставляет в последней строке 
экрана курсор и ждет, пока 
мы не введем с клавиатуры 
какое-нибудь число. После 
подтверждения ввода клави- 
шей Enter оператор INPUT за- 
носит введенное число в чис- 
ловую переменную, имя кото- 
рой указано вслед за ключевым словом (в нашем случае в пере- 
менную Kurs), и продолжает выполнение программы. INPUT не успо- 
коится, пока не получит хоть какое-нибудь число. Если попытаться 
на запрос ничего не набирать, а сразу нажать Ещег, то он укажет, 
что мы не правы — выведет знак вопроса (3). Можно, конечно, 
вместо числа предложить имя другой числовой переменной. Тогда 
переменной, стоящей вслед за INPUT будет присвоено значение 
набранной переменной, но только, если последняя ранее была 
определена. Иначе программа прервет работу с сообщением об 
ошибке: Variable not found. 

Вслед за INPUT может стоять и несколько переменных. В этом 
случае оператор будет запрашивать числа столько раз, сколько 
переменных мы к нему прицепим: 


10 INPUT Kurs; Rub 
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Возможности INPUT этим не исчерпываются. Кроме ввода дан- 
ных он еще способен частично исполнять обязанности РАМТ — 
выводить на экран текст. Используя это его свойство, мы можем 
заменить строки 10 и 50 нашей программы одной строкой: 


10 INPUT "Текущий курс (руб. за 1$): "; Kurs; "Сумма (руб.): "; Rub 


Формат записи данных в INPUT тот же, что и в PRINT: с теми же 
кавычками, с теми же знаками препинания. Так же с помощью 
PAPER, INK, BRIGHT, FLASH можно управлять атрибутами, а с по- 
мощью АТ и ТАВ — позицией вывода. 


Переходы 
GO TO 


Есть еще одно неудобство — нашу программу после каждого 
расчета нужно запускать заново. Избавиться от этого предельно 
просто — стоит только ввести в действие оператор СО ТО. Дослов- 
но он переводится «пошел на» строку с таким-то номером: 


80 GO ТО 10 


Введя эту строку, мы, как говорится, «зациклим» программу: с 
последней строки отошлем компьютер опять к ее началу. Теперь 
без остановки программы можно пересчитать цены хоть всех това- 
ров, выпускаемых в России. Но чтобы каждый раз не вводить курс 
доллара, все же разнесем ввод данных на две строки и переход по 
СО ТО сделаем на строку 35: 


5 REM Программа пересчета рублей в доллары 
10 INPUT "Текущий курс (руб. за 1$): "; Kurs 
33 PRINT АТ 0,1; "Текущий курс: "; Kurs; " рублей за 1$" 
35 INPUT " Сумма (руб.): "; Rub 
70 LET Dol=INT(Rub/ Kurs#100-+0. 5)/100: REM Pacuer 
75 PRINT АТ 1, 1; Rub; " руб. — ";"$"; Dol:” 
80 GO TO 35 


Пробелы (10 штук) в конце 75-й строки призваны затирать 
«хвост» выведенной в предыдущем расчете суммы. 
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Останов и продолжение выполнения программы 
STOP, CONTINUE 





Теперь возникла другая проблема: как остановить программу? 
Не выключать же компьютер. Можно, конечно, сделать сброс, но 
тогда сотрется программа. 

Вообще, выполнение программы практически в любом месте 
можно прервать по команде Break (клавиши CS/Space). На это 
компьютер отреагирует одним из сообщений: BREAK into program 
(прерывание во время выполнения программы) либо BREAK — 
CONT repeats (прерывание - CONTINUE повторит) и после нажатия 
Enter перейдет в редактор Бейсика. Продолжить выполнение прог- 
раммы можно, введя оператор CONTINUE. 

Вторую возможность остановить программу дает оператор INPUT. 
Если на его запрос вместо данных ввести оператор STOP, то с 
сообщением STOP т INPUT (стоп при вводе) мы «вывалимся» из 
программы. Как и после Break, продолжить выполнение програм- 
мы можно по CONTINUE: вновь выполняется оператор INPUT. 


Переходы по условию 
IF... THEN 


Требовать от пользователя, не посвященного в тонкости Бейсика 
(скажем, от продавца валютного магазина), чтобы он «вываливал- 
ся» из программы по Break или STOP, по меньшей мере, несерьез- 
но. Каждая программа должна корректно и просто завершаться. И 
информация о том, как это можно сделать, должна всегда присут- 
ствовать на экране. Например, в таком виде: «AAA выхода из 
программы нажмите такую-то клавишу». 


Поскольку наша программа постоянно ожидает получения ново- 
го числа, то проще всего организовать выход из нее при условии, 
что введено 0 руб. Следовательно, нам необходим оператор, спо- 
собный проанализировать, равна ли переменная Rub нулю или 
нет. Если Rub равна нулю, то необходимо организовать выход из 
программы, а если Rub не равна нулю — пересчитать сумму в 
доллары и перейти к ожиданию ввода нового числа. Оператор, 
принимающий подобные решения, так и выглядит: 


IF (если, англ.) <усповие> THEN (тогда, англ.) ‹действие» 


<Ycnosuem> может являться любое выражение. На принятие ре- 
шения: выполнять или не выполнять действие, указанное за ТНЕМ, 
влияет результат вычисления этого выражения. Если значение 
выражения равно нулю, считается, что условие ложно, не равно 
нулю — истинно. 

Чаще всего в качестве условия, стоящего за IF, используются 
выражения сравнения с использованием знаков «равно» (=), 
«больше» (>), «меньше» (<), «больше или равно» (>=), «неравно» 
(<>), «меньше или равно» (<=). (Обратите внимание на то, что 
знаки >=, <> и <= вводятся нажатием клавиш О, W и Е олно- 
временно с $5). 
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«Действие» — это любой 
оператор Бейсика либо це- 
почка операторов, разде- 
ленных двоеточием. При 
истинности условия вы- 
полняться будет весь 
«хвост» строки следом за 
ТНЕМ. 


В нашем примере усло- 
вием является Rub=0, а 
действием — оператор 
STOP. Программа после 
включения новых строк 
приобретет такой вид: 


10 INPUT "Текущий курс (руб. за 1$): "; Kurs 

33 PRINT АТ 0,1; "Текущий курс: "; Kurs; " рублей за 1$" 
34 PRINT AT 15, 0; "Для окончания работы введите 0” 

35 INPUT " Сумма (руб.): "; Rub 

62 IF Rub=0 THEN STOP 

70 LET Dol=INT(Rub/Kurs*100+0.5)/100: REM Расчет 

75 PRINT AT 1, 1; Rub; " руб. — ";"$"; Dol:” ы 

80 GO ТО 35 





Если условие, стоящее за IF, не выполняется (ложно), то KOMIIb- 
ютер, не обращая внимания Ha THEN, переходит к слелдующей 
строке программы. 


Ввод символьных данных 
INPUT, INPUT LINE 


Конечная цель программиста — не написание программы, KOTO- 
рая в принципе как-то работает, а создание такого продукта, кото- 
рый был бы защищен от ошибочных действий пользователя. Что, 
например, произойдет, если при работе с нашей программой ввес- 
ти вместо числа букву (это можно сделать и чисто случайно, 
скажем, перепутав букву О с цифрой 0)? Программа «вывалится», 
но не нормальным образом, а с сообщением об ошибке: Variable not 
found. Должны мы предотвратить подобные ситуации? Конечно. 

Компьютер не будет ругаться на нажатие любой клавиши, если 
попросить оператор INPUT ожидать ввода символьного значения. 
Сделать это просто — надо подставить в INPUT вместо числовой 
переменной символьную: 


35 INPUT ” Сумма (руб.): "; R$ 


На то, что ожидается ввод именно символьного значения, поль- 
зователю укажут кавычки, в которые INPUT заключит курсор и 
вводимый текст. От кавычек на экране можно избавиться, если 
перед символьными переменными, стоящими за INPUT, ставить 
ключевое слово LINE: 


35 INPUT " Сумма (руб.): "; LINE R$ 
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Хорошо, но в конечном итоге нам ведь необходимо получить 
число, а не символы. 

Символьное значение, введенное с пом‹лцью INPUT LINE, преоб- 
разуем в числовое, используя функцию VAL: 


60 LET Rub=VAL R$ 


К сожалению, этим проблема защиты OT ошибочного ввода He 
решена. Ведь если теперь будет введено не числовое значение, то 
ошибку «выкинет» уже функция VAL. У нас остается один выход — 
проверить каждый введенный символ: является ли он цифрой или 
нет. Сделать это можно, анализируя коды введенных символов. 

Для начала выделим как подстроку первый символ и определим 
его код: 


40 LET Cod=CODE R$(1) 


Далее проверим, попадает ли OH в интервал OT 48 Ao 57 (коды, 
соответствующие цифрам от 0 до 9, см. табл. 1 на стр. 100). Если 
символ не цифра, переходим на строку 100: 


42 IF Cod<48 THEN GO ТО 100 
45 IF Cod>57 THEN GO TO 100 


В 100-й строке мы в дальнейшем организуем обработку 
ошибки. 


Логические операции 
ОК, МОТ, АМО 


В этом месте немного отвлечемся от нашей программы и пос- 
мотрим, как можно две строки с номерами 42 и 45, проверяющие 
различные условия, заменить одной. Этот частный пример введет 
нас в пространство логических операций. 

Логика оперирует с несколькими условиями и помогает делать 
вывод об истинности или ложности их сочетаний. Например, в 
нашей программе необходимо выяснить, выполняется ли хотя бы 
одно из двух условий: Cod<48 ИЛИ Cod>57. Нет ничего проще. 
Надо только русское ИЛИ заменить на английское, то есть на 
логический оператор OR: 


Cod<48 ОВ Cod>57 


Это объединенное условие истинно, если верно любое из срав- 
нений. Учитывая, что истинное выражение принимает значение 1, 
а ложное — 0, можно записать: 

x OR y = 1, если либо х=1, либо у=1, либо и х=1, и у=1 
x OR y = 0, только если х=0*и у=0 

Проверить, что введенный символ не цифра, можно и другим 
способом: выяснить, не попадает ли его код в промежуток от 48 
до 57, то есть НЕ выполняются ли одновременно два условия: 
Cod>48 И Cod<57. Заменив HE на логический оператор NOT, а И — 
Ha AND, запишем: 


NOT(Cod>48 AND Cod<57) 
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Выражение в скох. ‘ах будет истинно только в TOM случае, если 
истинны оба условия. Так и запишем: 


x AND у = 1, толь о если х=1 и у=1 
x AND у = 0, если либо х=0, либо у=0, либо x=0 и у=0 


Логический оператор МОТ — это оператор отрицания. Из ис- 
тинного утверждения он делает ложное и, наоборот, из ложного — 
истинное: 


МОТ x = 0, если х=1 
МОТ x = 1, если x=0 


Вот и все логические операции, существующие в Spectrum- 
Бейсике. В качестве примера посмотрим, в каком случае может 
быть истинно утверждение мальчика Вовочки: «Я сегодня буду есть 
мороженое» (доллары пока в сторону). Итак, начнем: 


(«Мама даст денег» 
АМО 
((«будет работать магазин» АМО «там будет мороженое») 
OR 
(«будет работать киоск» AND «там будет мороженое») 
АМО МОТ 
«пойдет дождь») 
OR 


(«мороженое принесет nana» 
АМО МОТ 
«мама оставит мороженое в холодильнике до завтра») 


Вот такая ЛОГИКА. 


Теперь вместо двух строк нашей «валютной» программы, прове- 
ряющих, что введенный символ — цифра, можно записать одну: 


45 IF CODE R$(1)<48 ОВ CODE R$(1)>57 THEN GO TO 100 


В этой строке мы избавились OT лишней переменной Cod. 
Такую проверку надо организовать для каждого символа пере- 
менной R$, то есть продолжить: 


46 IF CODE R$(2)<48 OR CODE ®$(2)>57 THEN GO TO 100 


Однако если кто-нибудь захочет перевести в доллары, скажем, 3 
рубля (ха-ха!), и, следовательно, переменная R$ булет состоять 
всего из одного символа, то программа в строке 46 «вылетит» по 
ошибке (параметр в сечении превысит пределы допустимого). В 
подобных случаях необходимо сначала определить длину символь- 
ной переменной и выполнить проверку столько раз, сколько сим- 
волов в переменной R$, то есть организовать цикл. 


Программные циклы 
FOR, ТО, STEP, NEXT 


Введем переменную i, называемую счетчиком цикла, присвоим 
ей значение 1 и подставим в строку 45 для выделения первого 
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символа переменной — ®$(!). После проверки кода символа увели- 
чим значение i на 1 и сравним его с длиной переменной R$ 
(предполагается, что R$ не равна «пустой строке»). Если теще не 
превысила LEN R$, то перейдем снова на строку 45, выделим из R$ 
следующий символ (ведь i увеличилась Ha 1) и проверим его KOA: 


40 LET i=1 
45 IF CODE R$(i)<48 OR CODE R$(i)>57 THEN GO TO 100 
48 LET i=i+1 


50 IF i<=LEN R$ THEN GO TO 45 


Выход из цикла произойдет, когда i превысит количество CHMBO- 
лов во введенной строке (i>LEN R$). 

Конструкция, подобная построенному нами циклу, настолько 
часто применяется в программировании, что для ее организации в 
Бейсик введены специальные операторы РОВ и МЕХТ. С их по- 
мощью наш цикл запишется следующим образом: 


40 FOR i=1 TO LEN R$ 
45 IF CODE R$(i)<48 OR CODE R$(i)>57 THEN GO TO 100 


50 NEXT i 
Следом за ключевым словом FOR следует операция присвоения 
переменной i начального значения — эквивалент LET 1=1. После 


знака равенства может стоять числовое выражение. Переменная, 
использующаяся в цикле FOR...NEXT в качестве счетчика, носит 
специальное название — управляющая переменная цикла. Это обыч- 
ная числовая переменная, но с единственным ограничением: ее 
имя должно состоять из одной буквы. 

За ключевым словом ТО указывается конечное значение перемен- 
ной цикла (число либо числовое выражение). Сравнение перемен- 
ной цикла и предельного значения осуществляет оператор МЕХТ, 
который ставится в конце цикла с указанной вслед за ним управ- 
ляющей переменной. Строка с NEXT {аналогична прежним строкам 
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48 и 50. NEXT увеличивает переменную цикла и сравнивает ee с 
предельным значением. Если значение переменной цикла пре- 
высило. конечное значение, то выполнение программы продолжа- 
ется с оператора, следующего 3a NEXT. Иначе делается еще один 
«виток»: повторяются все операторы после FOR . 

В нашем примере переменная цикла с каждым проходом уве- 
личивается на 1, но значение шага цикла можно варьировать, введя 
ключевое слово $ТЕР и указав за ним значение, на которое следует 
увеличивать переменную цикла при выполнении оператора МЕХТ. 


Строку 40 можно записать и так: 
40 FOR i=1 ТО LEN R$ STEP 1 


Правильность набора нужно проверить не только при вводе 
суммы, но и при вводе значения курса доллара. Придется ор- 
ганизовать еще один цикл, подобный уже описанному. Включим в 
программу и строку 100, выволящую сообщение о допущенной 
ошибке, и строку 105, «отсылающую» к строкам с оператором 
INPUT, в которых была допущена ошибка ввода. Номер строки, на 
которую следует перейти, заносится в переменную N. 


5 REM Программа пересчета рублей в доллары 
10 INPUT "Текущий курс (руб. за 1$): "; LINE К$ 
13 IF LEN K$=0 THEN GO TO 10 
15 FOR i=1 TO LEN K$ 
20 IF CODE K$(i)<48 OR CODE K$(i)>57 THEN LET N=10: GO TO 100 
25 NEXT i 
30 LET Kurs=VAL K$ 
33 PRINT AT 0,1; “Текущий курс: "; Kurs; " рублей за 1$" 
34 PRINT AT 15, 0; "Для окончания работы введите 0” 
35 INPUT "Сумма (руб.): "; LINE R$ 
37 IF LEN R$=0 THEN GO TO 35 
40 FOR i=1 TO LEN R$ 
45 IF CODE R$(i)<48 OR CODE R$(i)>57 THEN LET N=10: GO TO 100 
50 NEXT i 
60 LET Rub=VAL R$ 
65 IF Rub=0 THEN STOP 
70 LET Dol=INT(Rub/Kurs*100+0.5)/100: REM Расчет 
75 PRINT AT 1, 1; Rub; " руб. — ";"$"; Dol:" - 
80 GO TO 35 
100 PRINT AT 10, 0;"Извините. Вы ошиблись в наборе." 
101 PAUSE 50 
103 PRINT AT 10, 0;" . 
105 GO TON 


Вот теперь компьютер прервет выполнение программы только 
тогда, когда мы введем сумму 0 руб. (либо оператор STOP). При 
ошибочном вводе компьютер извинится и предложит повторить 
набор. 

Строки 13 и 37 предохраняют от ввода «пустой строки», то есть 
от нажатия Ещег без ввода символов. Если их пропустить, то в 
строках 30 и 60 программа «вылетит» по ошибке, не сумев вы- 
полнить VAL от «пустой строки». 
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Пауза 
PAUSE 





В строке 101 программы использован оператор PAUSE. Он при- 
останавливает выполнение программы. Длительность паузы зада- 
ется параметром оператора в 1/50 долях секунды. Оператор 
PAUSE 0 задает бесконечную паузу. Прервать паузу можно и рань- 
ше установленного срока, нажав любую клавищу. 

В нашей программе пауза нужна для того, чтобы пользователь 
успел прочитать сообщение об ошибке. После чего сообщение 
затирается пробелами (строка 103). 


Опрос клавиатуры 
INKEY$ 





Есть еще одна возможность сделать нашу программу более при- 
ятной в общении. При выходе из программы принято запрашивать 
подтверждение желания пользователя закончить работу. Ведь воз- 
можна ситуация, когда на запрос случайно будет введен ноль. 
Программа прервется, хотя мы этого и не хотели. 


Обычно, при необхоли- 
мости запросить подтвержде- 
ние какого-либо действия, 
программу «зацикливают» 
на опросе клавиатуры. Реше- 
ние «что делать» принимает- 
ся в зависимости от того, ка- 
кая нажимается клавиша. 
Для опроса клавиатуры при- 
меняется функция INKEYS. 
Она не требует аргумента и 
возвращает символ, соответ- 
ствующий клавише, нажатой 
в дланный момент. Если ника- 
кая клавиша не была нажата, 
функция возвращает значе- 
ние «пустая строка». 


Без предисловий напишем 
необходимый нам фрагмент 
программы: 

120 PRINT АТ 10, 5; "Вы действительно хотите закончить работу? Y/N 
(Да/Нет)” 

140 IF INKEY$="" THEN GO ТО 140 

145 IF INKEY$="Y" OR INKEY$="y" THEN STOP 

150 CLS: GO TOS 





Пока никакая клавиша не нажата, программа «зациклена» Ha 
строке 140. Если нажата клавиша У (с Caps Shift или без Hee), 
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программа останавливается. По любой другой клавише осуществ- 
ляется переход к началу программы. 


Звук 
ВЕЕР 








Никогда нелиигне украсить программу одной-двумя музыкаль- 
ными фразами. 

Зреснит-Бейсик не позволяет создать многоголосое музыкаль- 
ное сопровождение, но «насвистеть» мелодию сумеет. Для этого 
имеется специальный оператор ВЕЕР. Наберем ключевое слово 
ВЕЕР, вслед за ним через запятую два числа, скажем, | и 0: 


ВЕЕР 1, 0 


В течение одной секунды мы 
будем слышать звук с частотой, 
соответствующей ноте ДО пер- 
вой октавы. Меняя первое 
число можно регулировать 
продолжительность звучания 
ноты (значение задается в се- 
кундах). Второе число опреде- 
ляет высоту звука: увеличение 
числа на 1 соответствует пере- 
ходу на пол тона выше, умень- 
шение на 1 — на пол тона ни- 
же. Для поднятия ноты на окта- 
ву ко второму параметру ВЕЕР 
следует прибавить 12. 


Указанный принцип отсчета параметра ВЕЕР не точен: высоты 
нот при его использовании не будут совпадать с принятыми в 
музыке. Чтобы не травмировать слух окружающих, необходимо 
использовать более точные параметры. На рис. 4 приведено точное 
соответствие значений второго параметра оператора ВЕЕР нотам 
первой октавы. 


Для проигрывания мелодии, естественно, нужно написать прог- 
раммку, состоящую из последовательности ВЕЕР. Вот как, к приме- 





<I 
= 
No PE МИ ФА СОЛЬ ЛЯ Си ДО 
(0) (2.039) {3.86} (4.98) (7.02) (8.84) (10.88) (12) 


Рис. 4. Точные параметры ВЕЕР для средней октавы. 
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ру, запишется фрагментик из популярной когда-то песни квартета 
ABBA «Money, money...»: 


10 BEEP 0.15,7.02: BEEP 0.15,8.84: BEEP 0.15,10.88 
20 BEEP 0.15,7.02: BEEP 0.15,10.88: BEEP 0.75,8.84 
30 BEEP 0.15,8.84: BEEP 0.15,8.84: BEEP 0.15,10.88 
40 BEEP 0.3,10.88: BEEP 0.6,7.02 


Конечно, мы не стали бы занимать место под эту примитивней- 
шую программу, если бы не задались целью показать, как ее 
можно модифицировать с помощью какого-нибудь, еще не изучен- 
ного нами средства. 


Массивы 
DIM 





Первое, что приходит Ha ум при взгляде Ha длинную цепочку 
однотипных операторов ВЕЕР, — это написать цикл типа: 


10 РОК 1=1 ТО 11 
20 ВЕЕР I, Н 
30 NEXT i 


Правда, в таком виде программка десять раз проиграет одну и ту 
же ноту (длительностью — Т и высотой тона — Н). Надо каким-то 
образом менять параметры ВЕЕР при «прогоне» цикла, то есть 
необходимо организовать ряд (набор) переменных и уметь вы- 
бирать из этой последовательности нужную, указывая ее порядко- 
вый номер. Тогда можно будет в первую переменную одной из 
последовательностей (назовем ее Т(1)} записать длительность зву- 
чания первой ноты, во вторую (Т(2)) — длительность второй ноты и 
т. A. Во вторую последовательность H(i) занести одно за другим 
значения высот нот. Тогда цикл можно было бы записать следу- 
ющим образом: 


10 FOR i=1 ТО 11 
20 BEEP T(i), H(i) 
30 NEXT i 


Такие послеловательности переменных, имеющих одно имя и 
отличающихся номером (индексом), называются массивами. Пере- 
менные, входящие в массив (элементы массива или индексирован- 
ные переменные}, можно применять как и обычные переменные. 
Только запись у них немного другая, AA имя должно состоять только 
из одной буквы. И, конечно, у них есть огромное преимущество по 
сравнению с обычными переменными — их можно обрабатывать 
одним оператором в цикле, меняя инлекс. 


Перед применением массива его надо задать — определить имя 
и количество элементов в нем. Делается это так: пишется ключевое 
слово DIM, а за ним ставятся имя и, в скобках, размерность 
массива: 


5 DIM T(11): DIM Н(11) 
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Мы написали «размерность», поскольку массивы могут быть не 
только одномерными (с одним индексом), но и многомерными (с 
любым количеством индексов). В этом случае принято говорить о 
массивах с несколькими измерениями. Например, массив, задавае- 
мый строкой DIM А(5, 10), двумерный. Он состоит из 50 (5x10) 
индексированных переменных. Аля большей наглядности их мож- 
но мысленно расположить в виде таблицы с 5 строками и 10 
столбцами: 


A(1,1) A(1,2) ... A(1,10) 
A(2,1) A(2,2) ... A(2,10) 


A(5,1) A(5,2) ... A(5,10) 


Обращаться с элементами этого массива можно так же, каки с 
элементами одномерного: указывай «координаты» переменной в 
таблице (номер строки и номер столбца) и работай, как с обычной 
переменной: присваивай значения с помощью LET, вставляй в 
выражения и т. д. 

Для обработки всего массива потребуется уже не один, а два 
цикла — один должен быть «вложен» в другой. Вот, например, как 
будет выглядеть программа, присваивающая индексированным 
переменным значения, соответствующие их индексам, и распеча- 
тывающая массив на экране в виде таблицы: 


10 DIM А(5,10) 

20 FOR i=1 ТО 5 

30 FOR j=1 TO 10 

40 LET A(i,j)=10*i+j: PRINT AT ix2, j*3; A(i,j) 
50 NEXT j 

50 NEXT i 


Массивы могут быть составлены и из символьных переменных. 
Массив, заданный строкой DIM S$(10, 5), может рассматриваться 
либо как одномерный массив, состоящий из 10 символьных пере- 
менных длиной по 5 символов каждая: $$(1)...5$(10), либо как дву- 
мерный массив из 50 переменных длиной в один символ: 
$$(1,1)...5$(10,5). 


Однако мы увлеклись описанием различных массивов. Пора 
вернуться к нашей музыкальной программке. Кстати, ведь ее мож- 
но и модернизировать: вместо двух одномерных массивов Т() и Н() 
организовать один двумерный. Это напрашивается само собой, 
ведь по отдельности эти два массива не имеют смысла: 


5 DIM М(11, 2) 
10 FOR i=1 ТО 11 


20 BEEP M(i, 1), M(i, 2) 
30 NEXT i 


Все это хорошо, HO только при условии, что каким-то образом 


элементам массива булут присвоены значения длительности и 
высоты нот. Если пойти прямым путем и написать 20 операторов 


42 


шо ша фл иво аббат ом 


мА дла а. ды Пыль m 


ПРОГРАММИРОВАНИЕ 


LET, то мы не только ничего не выгадаем, но, наоборот, сильно 
увеличим длину программы. Представьте себе конструкцию: 


LET M(1,1)=1: LET M(1,2)=2: LET M(2,1)=3 
И Т. A. AO 
LET M(11,2)=22 


Проще было бы оставить 11 операторов BEEP. 


Данные в программе 
DATA, READ, RESTORE 


Разработчики Бейсика позаботились о нас и включили в него 
удобное средство для хранения и загрузки данных в переменные. 
He тех данных, которые вводит в программу пользователь с по- 
мощью оператора INPUT, а данных, заклалываемых программистом 
при ее написании. Например, параметров для операторов ВЕЕР. 

Делается это просто: пишется ключевое слово ВАТА, а за ним 
через запятую в нужном порядке размещаются данные. Парамет- 
ры нашей мелодии (длительности и высоты нот) запишутся так: 


200 ОАТА 0.15, 7.02, 0.15, 8.84, 0.15, 10.88, 0.15, 7.02, 0.15, 10.88, 
0.75, 8.84, 0.15, 8.84, 0.15, 8.84, 0.15, 10.88, 0.3, 10.88, &6, 7.02 


Данные можно разместить как за одним оператором DATA, так и 
распределить между несколькими, то есть разбить строку 200 на 
две, три и более строк: 


200 DATA 0.15, 7.02, 0.15, 8.84, 0.15, 10.88, 0.15, 7.02, 0.15, 10.88, 
0.75, 8.84 
210 DATA 0.15, 8.84, 0.15, 8.84, 0.15, 10.88, 0.3, 10.88, 0.6, 7.02 


Оператор DATA можно располагать в любом месте программы. 
Компьютер игнорирует его и переходит к выполнению слелдующей 
строки. Чаще всего данные помещают за основным текстом прог- 
раммы, чтобы не затруднять ее чтение. 

Как только компьютер встретит оператор ВЕАО с одной или 
более (через запятую) стоящими за ним переменными, он момен- 
тально отыщет строку с DATA и загрузит в эти переменные данные 
из DATA. Например: 


READ T, H: PRINT T;” 77 Fi 
0.15 7.02 


Первый NomaBuIHHca по тексту оператор READ заносит в пере- 
менные порцию данных из первого встреченного в программе 
оператора DATA. Следующие операторы READ продолжают последо- 
вательное считывание. То есть, повторив предыдущую строку, мы 
получим уже другой результат: 


READ T, Н: PRINT Т;" ЗН 
9.15 8.84 


Следует особо следить за тем, чтобы количество считываний не 
превышало количество перечисленных за операторами DATA дан- 
ных. Иначе на экране появится сообщение об ошибке: End of data. 
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Поскольку значения, указываемые за операторами DATA, могут 
быть как числовыми, так и символьными, то необходимо также 
следить за порядком их занесения в переменные. Числовые дан- 
ные должны считываться в числовые переменные, символьные — 
в символьные. 

Теперь, используя оператор READ, мы можем изящно загрузить 
параметры мелодии из DATA в массив M(): 


10 FOR i=1 TO 11 
20 FOR j=1 TO 2 
30 READ Mi, |) 
40 NEXT j 

50 NEXT i 


Правда, получилось, что в компьютере параметры нашей Me- 
лодии хранятся в двух местах: и в тексте самой программы (в 
строке за DATA), и в массиве. Это нерационально, и от последнего, 
наверное, придется отказаться*. 


Используя способность READ последовательно считывать дан- 
ные, можно обойтись лишь двумя переменными. Надо только сов- 
местить процесс считывания и проигрывания: 


300 FOR i=1 ТО 11 


310 READ T, Н 
320 ВЕЕРТ, Н 
330 NEXT i 


Теперь эти строки можно использовать в программе. 

А если захочется, чтобы мелодия звучала в нескольких местах 
программы? Переписать еще раз цикл с READ и ВЕЕР, конечно, не 
представит труда, HO как быть с данными? Ведь мы их уже считали. 
Не дублировать же и их? 

Специально для того, чтобы иметь возможность многократно 
считывать информацию, записанную в DATA, в Бейсик введен 
оператор RESTORE. Он указывает компьютеру, что следующему за 
ним оператору READ необходимо считывать данные опять из перво- 
го ОАТА. 

Поставив после RESTORE номер строки, в которой расположен 
какой-либо промежуточный оператор DATA, можно повторное счи- 
тывание начать с него. Таким образом, в нашем примере можно 
организовать проигрывание музыкальной фразы с любого места. 
Надо только не забыть изменить конечное значение управляющей 
переменной цикла: 


350 RESTORE 210 
360 FOR i=1 TO 5 


370 READ T, H 
380 BEEP T, H 
390 NEXT i 


Хотя и не следовало бы, учитывая возможность записи и загрузки массивов Ha 
магнитную ленту отдельно от основной программы, что бывает очень удобно. К 
этому вопросу мы еще вернемся в разделе, посвященном записи и загрузке 
информации т стр. 49). 
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Подпрограммы 
GO SUB, RETURN 


Можно еще как-то смириться с повтором фрагмента программы 
длиной в несколько строчек, но довольно часто приходится исполь- 
зовать по многу раз программные блоки, состоящие, скажем, из 
десятков строк. Кому не лень, пусть набирает эти строки несколько 
раз, но уважающий себя программист в такой ситуации, не заду- 
мываясь, организует повторение программного фрагмента как вы- 
зов подпрограммы. В то место программы, где необходимо использо- 
вать ранее написанный блок, он вставит строку 


7 GO SUB 290 


— что означает: перейти к подпрограмме, расположенной, начиная 
со строки 290. То же самое сделал бы и оператор GOTO, но с 
существенной оговоркой: после выполнения подпрограммы ком- 
пьютер должен вернуться к оператору, следующему за GO SUB. 
Дать понять компьютеру, что подпрограмма закончена и пора 
возвращаться, необходимо с помощью оператора RETURN: 


280 REM Подпрограмма для проигрывания мелодии 
290 RESTORE 

300 РОК 1=1 ТО 10 

310 READ Т, H 

320 BEEP Т, Н 

330 NEXT i 

340 RETURN 


Вот так будет выглядеть музыкальная подпрограмма. Вызов же 
ее мы уже оформили (GO SUB 290). 

Эту подпрограмму можно сделать более универсальной, введя в 
нее две переменные: NRest — номер строки оператора DATA, Ha- 
чиная с которого нужно считывать данные для проигрывания 
фрагмента мелодии, и СоВ — количество нот в фрагменте. Сама 
подпрограмма и ее вызов будут выглядеть так: 


6 LET NRest=200: LET СоВ=11 
7 GO SUB 280 


77 LET NRest=210: LET СоВ=5: GO SUB 280 
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280 REM Подпрограмма проигрывания мелодии и ее фрагментов 
290 RESTORE NRest 

300 FOR i=1 TO ColB 

310 READ T, H 

320 BEEP T, H 

330 IF INKEY$<>"" THEN GO TO 350 

340 NEXT i 

350 RETURN 


В 330 строку мы включили процедуру выхода из подпрограммы 
при удержании любой клавиши. Пользователь должен иметь воз- 
можность в любой момент прервать мелодию и приступить (вер- 
нуться} к работе с программой. 

При написании сложной по структуре программы бывает по- 
лезно оформлять подпрограммами и неповторяющиеся ее части. 
Такую программу легче читать и отлаживать. 


РАБОТА С МАГНИТОФОНОМ 





Запись программ 
SAVE 


Написанная программа будет сохраняться в памяти компьютера 
AO тех пор, пока мы его He выключим. Но для нас важно, чтобы ею 
можно было пользоваться и завтра, и послезавтра. Должен быть 
некий способ сохранения программ с возможностью в последую- 
щем быстрой загрузки их в память компьютера. Самый простой 
способ — запись на магнитную ленту обычного магнитофона (как 
кассетного, так и катушечного). То, что создается на магнитной 
ленте при записи туда программы, называется файлом. 

Подключим магнитофон к специальному гнезду компьютера, 
наберем ключевое слово SAVE, а вслед за ним заключенное в 
кавычки имя файла с программой. Имя придумаем сами, помня 
лишь с TOM, что оно не должно содержать более десяти символов, HO 
и менее одного. Например: 


SAVE "DOLLAR" 
На ввод этого оператора компьютер откликнется сообщением: 


Start fepe, then press any key. 


— то есть попросит включить магнитофон Ha запись* и нажать 
любую клавишу на компьютере. После этого компьютер начнет 
«шипеть», а по бордюру побегут цветные полоски — значит, 
информация записывается. 

По окончании записи появится стандартное сообщение: 


6 OK 


*  OGecneyeHHe надежной записи и считывания информации с магнитной ленты — 


это тема отдельного разговора. Здесь же посоветуем только устанавливать уро- 
вень записи почти на максимум. 
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Можно записать программу на магнитофон таким образом, что- 
бы после загрузки для ее запуска не требовалось выполнения 
оператора RUN. А в этом действительно есть необходимость. Ведь 
наша программа должна быть рассчитана на непросвещенного 
пользователя, от которого грех требовать выполнения даже такого 
элементарного действия, как запуск программы. 

Для обеспечения автоматического старта при загрузке програм- 
мы (автостарта) к оператору SAVE нужно добавить ключевое 
слово LINE с указанием строки старта: 


SAVE "DOLLAR" LINE 1 


Мы задали автостарт с первой строки, чем обеспечили выпол- 
нение программы с самого начала. Подставив другой номер, мож- 
но задать автостарт с любой строки программы. 


Проверка правильности записи программы 
VERIFY 


Бейсик ZX Spectrum позволя- 
ет после записи программы Ha 
магнитофон убедиться в без- 
ошибочности проведения этой 
операции. Перемотаем магнит- 
ную ленту в начало записанного 
нами файла, наберем оператор 


VERIFY “DOLLAR” 


— включим магнитофон Ha вос- 
произведение и нажмем Enter. 
Когда компьютер встретит на 
ленте файл с указанным име- 
нем, он начнет сравнивать его с программой, записанной в его 
памяти. Если тексты программы в памяти и на ленте совпадают, то 
выдается сообщение 0 ОК, увидев которое можно вздохнуть спокой- 
но и выключить компьютер. 

Если же появится надпись Tape loading error, значит, запись не 
удалась и. нужно повторить ее еще раз*. 





Загрузка программы 
LOAD 


Сохраненную Ha ленте программу (файл) загрузить в память 
компьютера после некоторой тренировки достаточно просто. Вы- 
полним оператор 


LOAD “DOLLAR” 


Срыв записи может происходить вследствие дефектов ленты, недостаточного 
(редко — избыточного) уровня записи, плохой настройки магнитной головки, 
неисправности соответствующих узлов компьютера или магнитофона ит. д. 
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— не забыв предвари- 
тельно включить магни- 
тофон на воспроизведе- 
ние. Если, просматривая 
ленту, компьютер встре- 
тит файл с указанным 
именем, то он без лишних 
вопросов загрузит его к 
себе в память. При ус- 
пешном завершении про- 
цесса на экране появится 
соответствующее сообще- 
ние или загруженная 
программа будет за- 
пущена (если она была 
сохранена оператором 
SAVE LINE). 


Когда имя программы точно He известно, его можно и 
не указывать, заменив «пустой строкой» — двумя кавыч- 
ками без текста: 


LOAD ore 


Выполняя этот оператор, компьютер загрузит первую 
встретившуюся на ленте бейсик-программу. 


Подгрузка программ 
MERGE 


После загрузки новой программы ранее находившая- 
ся в памяти компьютера программа бесследно исчезает. 
Но можно загрузить вторую программу и не тронув 
старой, из двух программ сделать одну. Если в памяти 
компьютера находится наша программа “DOLLAR”, а на 
ленте имеется программа "PROG", то после ее подгрузки 
оператором 


MERGE "РКОС" 
в листинге можно обнаружить строки обеих программ. 


&s Gr: ДАР — щФль 
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РАБОТА С МАГНИТОФОНОМ 


При слиянии программ следует особо следить за тем, чтобы в них 
не было строк с совпадающими номерами. Иначе строки ранее 3a- 
груженной программы ("DOLLAR”) будут попросту заменены на 
строки новой ("PROG") с совпалающими номерами. Та же участь 
ожидает и одноименные переменные. 


Запись и загрузка массивов 
SAVE...DATA, LOAD...DATA 





В своей «валютной» программе мы отказались от использования 
массива для хранения параметров мелодии. Если бы мы этого не 
сделали, то нам мог бы пригодиться оператор SAVE с ключевым 
словом DATA. С его помощью можно сохранять массивы отдельно 
от программы, что позволяет существенно сократить ее размер. 
Ведь после того, как однажды при наладке программы рассчитаны 
или считаны из оператора DATA значения элементов массива и он 
сохранен на магнитной ленте, часть программы, делающая расчет 
или считывание, может быть со спокойной совестью удалена. 

Более того, возможность сохранения массивов отдельно от прог- 
раммы позволяет, в зависимости от желания пользователя, варь- 
ировать ее функции, подгружая одни или другие файлы с мас- 
сивами. Например, при загрузке нашей программы можно было 
бы попросить пользователя по своему усмотрению выбрать музы- 
кальное сопровождение программы. Для этого следовало бы при 
написании программы подготовить и сохранить на магнитной 
ленте несколько массивов с параметрами различных мелодий. 


Сам процесс записи массива ничем не отличается от записи 
всей программы, только после имени файла нужно записать клю- 
чевое слово DATA, а после него имя массива с двумя пустыми 
скобками: 


SAVE "MELOD"” DATA М() 


Соответственно, считывание массива производится оператором 
LOAD "MELOD” DATA M() 


Правильность записи массива можно проверить оператором 
VERIFY "МЕГОО" DATA M() 


Запись и загрузка экранного изображения 
SAVE...SCREEN$, LOAD...SCREEN$, VERIFY...SCREEN$ 





Сохранить на магнитной ленте можно и картинку, изображен- 
ную на экране, записав ее на ленту с помощью оператора 


SAVE "PICTURE" SCREEN$ 
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После чего, вставив в программу строку: 
5 LOAD "PICTURE” SCREEN$ 


— можно (если He выключать магнитофон после загрузки програм- 
мы) загрузить картинку с ленты прямо на экран. Для этого надо 
поместить на ленте файл с картинкой вслед за программным 
файлом. 

Лучше написать специальный загрузочный модуль — коротень- 
кую программку, которая должна загрузиться и запуститься пер- 
вой и обеспечить последовательную загрузку сначала заставки 
(чтобы скрасить ожидание), потом основного текста программы. 


В нашем случае программа-загрузчик может выглядеть так: 


5 LOAD "РСТИВЕ" SCREEN$ 
10 LOAD "DOLLAR” 


Запись экранного изображения можно проверить на отсутствие 
ошибок оператором 


VERIFY "РАСТУКЕ" SCREEN$ 


Запись и загрузка содержимого областей памяти 
SAVE...CODE, LOAD...CODE, VERIFY...CODE 


Сохранить Ha магнитной ленте экранное изображение можно и 
другим способом — как область памяти: 


SAVE “PICTURE” CODE 16384, 6912 


Приведенный оператор запишет на ленту содержимое области 
памяти, начиная с адреса* 16384 (первый параметр после ключе- 
вого слова CODE) длиной в 6912 байт** (второй параметр). Именно 
в этой области памяти хранится информация об экранном изобра- 
жении. 

Таким же образом, указывая начальный адрес и размер в бай- 
тах, можно скопировать на магнитную ленту любую область 
памяти компьютера. После чего загрузить ее обычным образом, 
только указав компьютеру, что следует ожидать блок кодов: 


LOAD "PICTURE” CODE 


Если после CODE He стоит никаких параметров, то блок кодов 
загрузится в то место, с которого его записывали. Но можно и 
изменить адрес начала области памяти, куда должна 
производиться загрузка блока, и указать количество загружаемых 
байт: 


LOAD "РСТУКЕ" CODE 16384, 6912 


* _ Что такое адрес в памяти, см. Ha стр. 60. 


xe 
Напомним, байтом называется восьмиразрядное двоичное число. 
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Запись блока кодов можно проверить на отсутствие ошибок 
оператором 


VERIFY "РСТОКЕ” CODE 16384, 6912 


РАБОТА С ПРИНТЕРОМ 


LPRINT, LLIST 





ZX Spectrum с подключенным к нему принтером открывает 
перед программистом новые горизонты. 

Во-первых, намного упрощается отладка больших программ. 
Ведь с помощью оператора LLIST (аналогичного LIST) можно вы- 
вести листинг на принтер и, уже не уткнувшись в экран, а акку- 
ратно разложив перед собой листки с текстом программы, 
разбираться: что, куда и как. 

Во-вторых, имея принтер, результаты выполнения собственно- 
ручно написанных программ можно не только наблюдать на экра- 
не монитора, но и получать материальный продукт их работы в 
виде распечаток. Так, например, при работе с нашей «долларовой» 
программой можно автоматически распечатывать ведомость расче- 
тов. Для этого потребуется лишь добавить в программу несколько 
строчек: 


1 LET NP=1 
2 INPUT "Введите сегодняшнее число "; LINE 0$; 
3 LPRINT "Ведомость на "; 0$ 


76 LPRINT МР:" " ; Rub; " — "; Dol; "$"; 
77 LET NP=NP+1 


В переменной NP хранится номер очередного вычисления. 


С помощью оператора СОРУ на принтере можно получить и 
целиком копию экрана. Причем безразлично, что в этот момент 
находится на экране — текст или графическая картинка. 

При отключенном принтере операторы LLIST, LPRINT и COPY игно- 
рируются. Печать всегла можно остановить нажатием Break 
(CS/Space}. 


Как компьютер общается с принтером, Ha какие управляющие 
символы и ключевые слова тот реагирует, зависит от многих 
причин. В основном, от специальной подпрограммы (драйвера}, 
обслуживающей принтер. Тут уж кто как устроится. 
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О ЧЕМ ЕЩЕ МОЖНО РАССКАЗАТЬ 





В этом разделе мы дадим информацию, без которой наш рассказ 
был бы неполным. 


Экспоненциальная форма записи чисел 


Кроме обычной формы представления чисел Speccy понимает и 
экспоненциальную, записывая степень через букву Е. Например, 
числа 5,5*105, 2,3*10-! запишутся следующим образом: 


PRINT 5.5E5 
550000 


PRINT 2.3E—1 
6.23 


Оператор PRINT при расчетах выводит результат не более чем с 
8 значащими цифрами. Причем и те не всегла точны, даже при 
обращении с целыми числами. Например, выполним: 


PRINT 1£10+1—1E10: PRINT 1E10—1E10+1 
9 
1 


Сравнение чисел 


Сравнение чисел может использоваться не только как условие в 
операторе IF...THEN, но и при обычных математических расчетах. 
Например, попросим PRINT вывести результат выражений, в KOTO- 
рых сравниваются два числа: 


PRINT 5<4 
0 
PRINT 5>4 
1 
Что и следовало ожидать: результат истинного сравнения — 1, 
ложного — 0. В выражениях, сравнивающих величины, использу- 
ются все возможные сочетания знаков: «равно» (=), «больше» (>), 
«меньше» (<), «больше или равно» (>=), «неравно» (<>), «меньше 


или равно» (<=). 
Выражения со сравнением можно вставлять и в «нормальные» 
числовые выражения: 
PRINT 5+2*(3>6) 
5 


Сравнив числа Зи 6, компьютер сделал заключение, что выра- 
жение в скобках ложно и подставил вместо него ноль. 
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Сравнение символьных значений 





Поскольку каждому символу соответствует некий числовой эк- 
вивалент — код, то можно сравнивать не только числовые, но и 
символьные значения. Например, казалось бы, абсолютно бес- 
смысленное с точки зрения математики выражение: 


PRINT АППВ 
1 


— для компьютера имеет вполне конкретное значение. Подумав, 
он сделал заключение, что оно верно, поскольку код буквы А 
меньше кода буквы В. При сравнении символьных значений, 
состоящих более чем из одного символа, происходит последова- 
тельное сравнение кодов до тех пор, пока не встретятся неравные 
коды: 


PRINT "AAAAC">"AAAAB" 
1 


При прочих равных условиях MeCHbUIHM будет признано более 
короткое символьное значение: 


PRINT "АААА”>"ААААВ" 
0 


Двоичное счисление 
BIN 


Реально компьютер обрабатывает числа, записанные в двоич- 
ном счислении: нулями и единицами. Поэтому часто приходится 
сталкиваться с необходимостью преобразовывать числа, записан- 
ные в двоичном виде, в привычные и для глаза, и для счета, 
десятичные. Специализируется на этом функция BIN. Например: 


PRINT BIN 0 
т BIN 1 
Paine BIN 10 
PRINT BIN 11 
PRINT BIN 100 


Мы привели так много примеров, чтобы хоть как-те помочь тем, 
кто впервые сталкивается с двоичной записью чисел. 


Математически оператор ВМ эквивалентен формуле: 
Dox2° + 21х21 + Dox2? + D3x2? +... 
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— rae Do, Di, D2, Оз, соответственно, разряды двоичного числа, 
читаемые справа налево и принимающие значения 0 или 1. Пере- 
ведем из двоичного в десятичный вид число 1101: 


Do=1, Di=0, D2=1, D3=0, D4=1 
1x2° + 0x27 + 1x27 + 1х2? = 13 
Проверим: 
PRINT BIN 1101 
13 
Tak оно и есть. 


Случайные числа 
RND, RANDOMIZE 


В набор числовых функций Бейсика входит функция ВМО — 
генератор псевдослучайных чисел. Потребность в получении слу- 
чайных чисел возникает, например, при написании игровых прог- 
рамм, обучающих систем (выдача неповторяющихся заданий} и BO 
многих других случаях. 


Для RND не нужен аргумент 
— при вызове функция возвра- 
щает случайное число в интер- 
вале от 0 ao 1. Распечатаем на 
экране много-много раз значе- ( 
ния, возвращаемые RND: О 

10 FOR i=1 ТО 100 
20 PRINT RND; ” "; 
30 NEXT i AY v, 2\ 

Получим ряд чисел, между ко- к = 
торыми нет никакой видимой = —, 


зависимости, что и является С = 6 SS 
D oN с 


*? 


признаком случайности. Олнако 
если генерировать числа с по- 
мощью ЮМО долго-долго, TO их 
последовательность начнет пов- > 
торяться. Поэтому в название \\ 
функции добавлено слово 

«псевдо». Хотя в подавляющем 


большинстве случаев этим 
«псевдо» можно пренебречь. 


Существенным неудобством RND является то, что после запуска 
(или сброса; компьютера функция каждый раз начинает гене- 
рировать с одного и того же числа одну и ту же последовательность 
(происки все того же «псевдо»). Пришлось ввести в Бейсик спе- 
циальный оператор RANDOMIZE. Выполняя его с указанием вслед 
за ним произвольного числа в интервале 1...65535, можно уста- 
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навливать начало последовательности случайных чисел. Если тре- 
буется совершенно случайная последовательность с совершенно 
случайным началом, то нужно вслед за RANDOMIZE поставить ноль 
либо вообще ничего не писать. Выполним несколько раз (каждый 
раз сбрасывая компьютер) строку: 


RANDOMIZE: PRINT RND 


Теперь-то уж мы приблизились к случайности — функция RND 
каждый раз выбрасывает различные значения. 

Для генерации случайных чисел в интервалах, отличных OT 
стандартно заданного для функции RND (0...1), используются эле- 
ментарные алгебраические выражения. Например, оператор 


PRINT 2+3*КМО 


будет выдавать случайные числа в интервале 2...5. Известная нам 
функция ИМТ поможет генерировать целые случайные числа. Ска- 
жем, с помощью оператора 


PRINT 1+INT(RND#9) 


можно получить последовательность целых случайных чисел от 1 
до 10. 


Анализ атрибутов знакоместа 
АТТЮ 


При написании игровых программ, да и во многих других 
случаях, часто бывает необходимо определить атрибуты знакоместа 
экрана, то есть выяснить, какими цветами оно раскрашено. В 
эреснат-Бейсике этим занимается функция АТТВ. Аргументами 
AAA нее являются координаты тестируемого знакоместа, размещае- 
мые за ней в скобках через запятую: номер строки (0...22) и номер 
столбца (0...31). В качестве результата ATTR возвращает числовое 
значение от 0 до 255, которым зашифрованы значения атрибутов 
знакоместа. 


Выполним программку: 


10 PRINT AT 10,10; INK 1; PAPER 6; BRIGHT 1; FLASH 1;"*"; 
20 PRINT ATTR(10, 10) 

RUN 

+241 


В ней задаются, а затем считываются атрибуты знакоместа с 
координатами (10, 10). Число 241 получается в результате вы- 
числения выражения, в котором <INK>, <PAPER>, <BRIGHT> и 
<FLASH> — значения атрибутов: 


1x<INK>+8x<PAPER>+64 x <ВЮАСНТ>+128х <РЕА$Н> 
— то есть в нашем случае: 
1х1+8х6+64х1+128х1=241 
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Символы псевдографики 


В ZX Spectrum коды от 32 до 127 (см. табл. 1 на стр. 100) 
соответствуют стандартному набору компьютерных символов (кро- 
ме знаков £ и ©). Этот набор называется АЗСИ-коды (American 
Standard Code for Information Interchange). 

Остальные символы не входят в ASCII. Символы с кодами OT 
128 ло 143 включительно — это так называемые псевдографические 
символы. «Графические» они потому, что представляют из себя 
квадратики, прямоугольники и т. п. Их изображение помещено на 
цифровых клавишах (от 1 до 8). «Псевдо» — потому, что по сути 
они такие же символы, как и буквы, то есть выводятся на экран 
нажатием соответствующих клавиии. 


Переход в режим псевлографики происходит после одновремен- 
ного нажатия двух клавиш: CS/9 (Graphics). Курсор меняется на 
[С]. Если одновременно с нажатием цифровых клавиш удержи- 
вать клавишу SS, графические символы будут выводиться в инвер- 
сном виде. Аля выхода из режима [С] нужно нажать клавиши С$/9 
или даже просто 9. 


Символы, определяемые пользователем 





В режиме псевдографики, кроме нанесенных на цифровые кла- 
виши графических символов, на экран выводятся и так называе- 
мые символы, определяемые пользователем (UDG — User Defined 
Graphics). Их может быть AO 22, и «привязываются» они к кла- 
вишам от А до U. Это могут быть и дополнительные графические 
символы, и произвольные значки, и — что часто можно встретить 
в отечественных Speccy — буквы русского алфавита. Этим новым 
символам присваиваются коды от 144 до 155. 

Наша фантазия при создании новых символов ограничена 
лишь размерами знакоместа (8х8 пикселей). Попробуем «сконст- 
руировать» значок, показанный на рис. 5. 

Для записи изображения символа в память компьютера его надо 
представить последовательностью из 8 чисел, соответствующих 
строкам пикселей знакоместа. Кажлая строка представляется в 
виде двоичного числа, исходя из принципа: есть точка в данной 
позиции строки — ставится 1, нет — 0: 


00011100 
00011100 
00001000 
01111111 
00011100 
00011100 
00010100 


00010100 Рис. 5. Эскиз симвопа UDG. 
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Эти числа, преобразованные с помощью функции ВМ © 
сятичные, последовательно записываются в память компь’. 
начиная с адреса, возвращенного функцией USR*. Аргуме: 
должен быть символ клавиши, за которой мы хотели бе‘ за- 
крепить» новый значок. Например, если мы запишем последова- 
тельность полученных чисел, начиная с адреса USR "А", то в ре- 
жиме курсора [G] при нажатии на клавишу А будет выводиться 
наш символ. 

Запись в память осуществляет специальный оператор Spectrum- 
Бейсика РОКЕ**, вслед за которым через запятую нужно указать, 
куда записывать (адрес) и что записывать: 


РОКЕ USR "А", BIN 00111100 


Второе число записывается по слелдующему адресу: 
РОКЕ USR "А"+1, ВМ 01000010 


И так восемь раз. После этого можно перейти в режим курсора 
[С] и попробовать выводить значок, нажимая клавишу А***. 


Управление выводом на экран 
с помощью «зняков препинания» 


В какое ме._тто Ha ” “7 -* размещать текст оператор PRINT, 
зависит от “Haka `` те предыдущего PRINT. Если он 
оканчивался " ‘ак мы уже знаем, текст будет 
ВЫВОДИТЬСЯ ` . следующего знакоместа в той же 
строке: 

10 YRIN* 
ae ,* uve" 
R’ Jr 
Я, А УЕ 
Si пята. ‚кажет на то, что вывод нужно продолжить с се- 


редрьмы строки (если, конечно, последний помещенный символ 
уже’ не перевалил за середину; в таком случае данные булут 
ра- мещены с начала слелдующей строки): 


10 РАМТ "SPECCY", 

20 PRINT " IS МУ LOVE” 
RUN 

SPECCY 1$ MY LOVE 


Если вообще какой-либо знак отсутствует, значит, CACAYIOILEMy 
оператору PRINT следуст выводить символы с новой строки, то есть 
перед выводом будет выполнена операция «перевод строки». 





Функция USR используется также для вызова подпрограмм в машинных кодах 
(см. «Справочник»). 

С ним мы более подробно познакомимся позже. 

Более подробно о формировании символов UDG читайте в [1] (в квадратных 
скобках мы будем указывать порядковый номер издания в списке литературы, 
приведенном в конце книги). 





at 


rae 


af 
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PRINT сам по себе (без ланных) вставляет «пустую строку» и 
переводит текущую позицию вывода в начало следующей. 

В операторе PRINT может использоваться и апостроф (`'). Натолк- 
нувшись на него, компьютер осуществит перевод строки. 

Знаки препинания могут отделять различные блоки данных, 
выводимых одним оператором PRINT: 


10 PRINT 1234; " QWERT", “ASDF” * "ZXCV" 
1234 QWER ASDF 
EZXCV 


Управляющие символы 





Символы с кодами от 0 Ao 31 (см. табл. 2), вообще говоря, 
символами не являются: у них нет собственного, отображаемого на 
экране начертания. Это так называемые управляющие символы. 

Управляют они, например, выводом на экран компьютера. Так, 
попытка вывести на экран управляющий символ с кодом 6 приве- 
дет к результату, аналогичному действию запятой, поставленной 
между данными после PRINT: 


PRINT "KU"; CHR$ 6; "КИ" 
KU KU 


Управляющий символ с кодом 13 действует aHa.\OrH4HO апост- 
рофу: указывает, что вывод нужно продолжить с начала следую- 
щей строки. \ 

Символы CHR$ 22 и CHR$ 23 в операторе PRINT выполчяют те же 
функции, что и АТ и TAB. После этих управляющих CHMBOAOB 
указывается по два параметра (второй параметр AAA CHR$ 23 
игнорируется). Оператор 


PRINT CHR$ 22+CHR$ 1+CHR$ 10; 5; CHR$ 23+CHR$ 11+ СНВ $ 0; 5 
аналогичен оператору 
PRINT АТ 1, 10; 5; TAB 11; 5 


Управляющий символ CHR$ 8 называется «забой» (backsp асе). 
Он переводит текущую позицию вывода на одно знакоместо нсазад. 
To есть символ, следующий за «забоем», оператор PRINT выволи Г на 
место последнего, напечатанного до него: 


10 PRINT "АВА"; CHR$ 8; "С" 
RUN 
ABC 


Символы с кодами 16...21 управляют атрибутами экрана и’ 
могут использоваться в операторе PRINT вместо соответствующих 
ключевых слов: 


INK — CHR$ 16 
PAPER — CHR$ 17 
FLASH — CHR$ 18 
BRIGHT — CHR$ 19 
INVERSE — CHR$ 20 
OVER — CHR$ 21 
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Например, оператор 
PRINT CHR$ 17+CHR$ 6;"АВС" 
равнозначен 
PRINT PAPER 6;"АВС" 


- 


Управление цветом в режиме курсора [Е] 


Назначить цвет фона и цвет тона можно еще одним способом: 
раскрашгивая предназначенный для вывода текст непосредственно 
при его наборе. Нужно только, когда потребуется изменить цвет, 
войти в режим курсора [Е] и нажать цифровую клавишу, соответ- 
ствующую номеру желаемого цвета. Нажатие цифровой клавииги 
совместно с CS задает цвет фона, без CS — цвет тона. При этом в 
текст будут вставляться «невидимые» управляющие символы 
CHR$ 17 и CHR$ 16. 


В режиме курсора [Е] можно управлять и другими атрибутами 
экрана: 


8 — BRIGHT 0 
9 — BRIGHT 1 
CS/8 — FLASH @ 
CS/9 ~~ FLASH 


Инверсный вывод можно задать при наборе текста непосредст- 
венно в режиме курсора [L]: 


CS/3 — INVERSE 0 
CS/4 — INVERSE 1 


Все действия по раскраске, выполненные в режиме курсора [Е], 
можно легко отменить. «Невидимые» коды управления цветом 
улаляются двойным нажатием Delete (CS/0). 


СИСТЕМНЫЕ ПЕРЕМЕННЫЕ 





Интерпретатору Бейсика для «служебного пользования» в ком- 
пьютере отводится специальная область оперативной памяти. В 
ячейках этой области хранятся настроечные параметры интерпре- 
татора, а также данные, необходимые для обработки бейсик-прог- 
рамм. Читая содержимое этих ячеек, можно узнать много интерес- 
ного о состоянии компьютера. Записывая же в них необходимые 
нам значения, можно влиять на работу компьютера. 

Эти ячейки памяти называют системными переменными. У каж- 
AOH из переменных есть свое имя и фиксированное положение в 
памяти*. 


Наверное, нет необходимости пояснять, что системные переменные ничего обще- 
го не имеют с переменными бейсик-программ. 
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Многие из системных переменных непосредственного отноше- 
ния к Бейсику не имеют, но использование некоторых из них 
намного расширяет возможности программиста, тем более, что 
изменять значения системных переменных можно с помощью опе- 
раторов Бейсика. 


Чтение содержимого памяти 
РЕЕК 





Память ZX Spectrum состоит из множества отдельных ячеек, в 
каждой из которых может быть записано число от 0 до 255 (байт). 
Всего ячеек 65535. Для того чтобы различать ячейки, каждой из 
них приведено в соответствие число от 0 до 65535, называемое 
адресом. С помощью оператора РЕЕК прямо из Бейсика можно 
читать содержимое любых ячеек памяти. Выполним в непосредст- 
венном режиме оператор 


PRINT PEEK 23560 
13 


По сути, мы выяснили, что в ячейке памяти с адресом 23560 
записано число 13. «Зациклим» считывание этой ячейки: 


10 PRINT PEEK 23560 
20 СО ТО 10 

RUN 

13 


Вполне естественно, что первоначальный результат выполнения 
программы будет таким же, как и при выполнении строки. Но если 
теперь, не останавливая программу, нажимать разные клавиши, 
на экране будут появляться коды соответствующих символов. 

Итак, мы познакомились с системной переменной ГА$Т _К (ал- 
рес 23560), в которой постоянно хранится код последней нажатой 
клавиши. 

В некоторых случаях пользоваться системной переменной 
LAST_K предпочтительнее, чем функцией INKEY$. Ведь INKEY$ воз- 
вращает символ клавиши, нажатой именно в момент ее выпол- 
нения, и требует обязательного «зацикливания» программы на 
опросе клавиатуры. Переменная LAST_K сохраняет код клавиши и 
после ее отпускания. Это позволяет после завершения программой 
каких-либо действий проверить, была ли нажата клавиша в MO- 
мент выполнения этих действий. 


Системный счетчик 





Системный счетчик — внутренние часы ZX Spectrum. Под него 
в памяти компьютера отведено три ячейки памяти с адресами 
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23672/73/74*. Они носят общее название «системная переменная 
ЕКАМЕ$З». 

После включения или сброса компьютера содержимое всех трех 
ячеек обнуляется. По прошествии 1/50 секунды в ячейку 23762 
записывается число 1. И далее, через каждые 1/50 секунды ее 
содержимое увеличивается на 1. При достижении значения 255 
ячейка 23762 обнуляется, а содержимое ячейки 23673 увеличива- 
ется на 1. И, соответственно, когда переполняется ячейка 23673 
(записанное в ней значение достигает 255), к содержимому ячейки 
23674 прибавляется 1. Следовательно, в нашем распоряжении 
имеются часы, отсчитывающие время с момента включения компь- 
ютера с точностью в 1/50 секунды непрерывно в течение 


(255+255х256+255х256х256)/50=335544,3 секунд, 
то есть 3 суток и еще 21 часа. Потом все сначала. 


Для определения числа полных секунд, прошедших с момента 
включения или сброса компьютера, нужно рассчитать следующее 
выражение: 


LET T=INT((65536*PEEK 23674+256*PEEK 23673+РЕЕК 23672)/50) 


Таким образом можно смоделировать на компьютере часы: 


10 INPUT "Час “;Воиг 

20 INPUT "Минуты “;min 

30 POKE 23674,0: POKE 23673,0: POKE 23672,0 
40 LET t=PEEK 23672+2569*PEEK 23673+65536*PEEK 23674+ 

hour* 180000+min*3000 

50 LET h=INT (+/ 180000) 

60 LET h$=STR$ В 

70 IF LEN h$=1 THEN LET h$="0"+h$ 

80 LET h$=h$( TO 2)+":" 

90 LET m=INT ((t—h* 180000) / 3000) 
100 LET m$=STR$ m 

110 IF LEN m$=1 THEN LET m$="0"+m$ 

120 LET m$=m$( ТО 2)+":” 
130 LET s=INT ((t—h*180000—m*3000) / 50) 

140 LET s$=STR$ $ 
150 IF LEN s$=1 THEN LET s$="0"+s$ 

160 LET $$=$$( TO 2) 

170 PRINT АТ 20,24;h$;m$;s$ 

180 GO TO 40 


Эти «часы» можно включить в любую программу. Следует TOAb- 
ко учитывать, что на время ожидания ввода данных операторами 
INPUT вывод времени на экран будет остановлен**. Чтобы задержка 
была не так заметна, лучше из программы, моделирующей часы, 


* 
В таком виде мы будем приводить адреса системных переменных, занимающих 


более одной ячейки. В данном случае это адреса 23672, 23673, 23674. 
Это относится и к другим операторам, приостанавливающим выполнение прог- 
раммы (LOAD, SAVE, PAUSE). 


kk 
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исключить строки 130...160 и убрать переменную $$ из строки 
170, то есть не выводить на экран секунды. 


Запись в память 
РОКЕ 


Запись чисел в память производится с помощью оператора 
РОКЕ. Вслед за ним через запятую располагаются два значения: 
адрес от 0 до 65535 и заносимое в память по указанному адресу 
число от 0 до 255. 


Невидимая точка на экране 


Оператор DRAW начинает чертить отрезок линии или дуги от 
последней выставленной на экране точки. Координаты этой точки 
он берет из системной переменной COORDS. В ячейках с адресами 
23677 и 23678 этой переменной хранятся, соответственно, зна- 
чения координат х и у последней выставленной на экран точки. 
Зная это, можно, не выставляя точки с помощью оператора PLOT, 
записывать начальную координату для DRAW сразу в переменную 
COORDS: 


10 POKE 23677,100: POKE 23678, 100 
20 DRAW 50, 50 


Другое полезное применение в программе переменной 
COORDS — это получение из нее с помощью PEEK информации о 
координатах последней выставленной точки. 


Окраска экрана 


Оперируя системными переменными, можно добиться того, что 
невозможно сделать с помощью обычных операторов и функций 
Бейсика. 

Например, в Бейсике нет оператора, изменяющего все атрибу- 
ты служебного экрана (оператор BORDER устанавливает только цвет 
фона). Задать их можно только, записывая соответствующие зна- 
чения в системную переменную BORDCR (адрес 23624}. Число, 
которое необходимо записать по этому адресу, формируется по 
принципу, изложенному в описании функции АТТК (см. стр. 55). 

Определяя через системную переменную BORDCR цвет фона 
служебного экрана, мы одновременно задаем цвет бордюра. 


Точно также, выполнив лишь один оператор 
РОКЕ 23693, Х 


— можно задать атрибуты и основного экрана (вместо привычных 
INK, PAPER, FLASH и BRIGHT). 23693 — это адрес системной перемен- 
ной ATTR_P, значение которой определяет «окрас» основного экра- 
на. Х — число, которым зашифрованы атрибуты. Межет, этот 
способ сложнее, но он короче и изящнее. 


62 


СИСТЕМНЫЕ ПЕРЕМЕННЫЕ 


Другие операции с экраном 


Оперируя системными переменными, можно менять привы- 
чные характеристики Бейсика ZX Spectrum. Например, можно 
увеличить основной экран: занять под него все 24 строки. AAA 
этого нужно модифицировать содержимое системной переменной 
ОЕ SZ (адрес 23659), залающей количество строк в служебном 
экране: 


РОКЕ 23659,0 


Правда, в этом случае следует исключить в программе вывод на 
служебный экран, иначе не оберешься беды. Когда же без служеб- 
ного экрана не обойтись (при работе с оператором INPUT или при 
ожидании вывода сообщения, например, о завершении работы 
программы) необходимо восстановить содержимое DF_ SZ: 


РОКЕ 23659,2 


Существует системная переменная SCR_CT (адрес 23692), зада- 
ющая количество строк текста, передвигаемых вверх по экрану без 
запроса scroll?. Требуемое значение этой переменной устанавлива- 
ется только из программы (изменить SCR_CT в непосредственном 
режиме невозможно). 


Настройка клавиатуры 





Меняя значения системных переменных REPDEL (адрес 23561) 
и REPPER (23562), можно по своему вкусу настроить клавиатуру 
компьютера. В переменной REPDEL хранится число, определяю- 
щее величину задержки (в 1/50 сек) между нажатием клавиши и 
началом автоматического повторения нажатия (автоповтора). 
REPPER задает период автоповтора (также в 1/50 сек). 

При желании можно изменить длительность звучания сигнала, 
возникающего при нажатии клавиш. Число, пропорциональное 
времени его звучания, содержится в системной переменной PIP 
(23609). 

Звуковой сигнал возникает и при переполнении буфера редак- 
тора и некоторых других ошибках. Длительность сигнала 
регулируется значением системной переменной RASP (23608). 


Полезная информация о памяти 


Например, нас может заинтересовать длина написанной 
бейсик-программы. Выберем из системных переменных РВОС 
(23635/36) и VARS (23627/28) адреса начала бейсик-программы 
и начала области бейсик-переменных и вычтем одно из другого: 


PRINT (PEEK 23635+256*PEEK 23635)—(PEEK 23627+256+РЕЕК 23628) 
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Под системные переменные, хранящие значения адресов, OTBO- 
дятся по две ячейки памяти, поскольку в одну ячейку можно 
записать число не более 255. AAA записи числа до 65535 (мак- 
симальный адрес памяти ZX Spectrum) его разбивают на два чис- 
ла. Сначала делят на 255, после чего остаток от деления заносят в 
первую ячейку (младший байт), а целую часть — во вторую (стар- 
ший байт). Например, число 64768 разобьется на два байта так: 


LET L=64768—256+*INT(64768/256): КЕМ Младший байт 
LET H=INT(64768/256): КЕМ Старший байт 


Умение записывать значения адресов в системные переменные 
может пригодиться, например, при оперировании с символами, 
определяемыми пользователем (см. стр. 56). Адрес начала области 
памяти, в которой размещается информация об этих символах, 
хранится в системной переменной ООС (адреса 23675/76). Изме- 
няя ее содержимое, можно определить несколько наборов символов 
и по необходимости в программе переходить с одного на другой. 


Аналогично можно переключать и основной набор символов. 
Стандартный набор символов ZX Spectrum «зашит» в постоянном 
запоминающем устройстве (ПЗУ), начиная с адреса 15616. Под 
хранение этого адреса выделена системная переменная CHARS 
(адреса 23606/07). Зная это, мы можем создать в памяти (или 
загрузить с магнитофона как кодовый блок) новый набор симво- 
лов и, переписав значение CHARS, переключить Ha него работу 
компьютера. Как создавать символы, мы описывали в разделе, 
посвященном псевлографике. Переопределяя адрес начала теку- 
щего набора символов, необходимо помнить, что первые 32 кода 
(от 0 до 31) являются управляющими и им не соответствуют 
никакие символы. Поэтому адрес начала размещения символов 
больше числа, записанного в CHARS, Ha 256 (32х8)*. Следователь- 
но, загрузив новый набор символов по адресу 64768, для подклю- 
чения его в CHARS нужно записать число 64512 (64768-—256)**. 

Мы рассказали далеко не о всех системных переменных. Мно- 
гим из неупомянутых трудно придумать какое-либо практическое 
применение в бейсик-программах. Для понимания назначения 
других недостаточно знаний, которые можно почерпнуть из этой 
книги. Полный список системных переменных и их описание 
можно найти в [1]. 


СЖАТИЕ БЕЙСИК-ПРОГРАММ 





Существенный недостаток ZX Spectrum — относительно малый 
объем свободной памяти (около 40 килобайт). А тут еще интерпре- 
татор Бейсика «транжирит» память: под запись любого числа 
интерпретатор отводит 6 ячеек памяти независимо от размера 
числа. Даже если это просто единица или ноль. Вот и приходится 


= Под каждый символ отводится 8 ячеек памяти. 


** Более подробно о подключении альтернативных шрифтов см. [1]. 
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программистам, работающим Ha Бейсике, изощряться, чтобы 
втиснуться в узкие рамки памяти Speccy. 

Прежде всего надо расширить область памяти, отведенную для 
работы бейсик-программы. Границы, в которых может размещать- 
ся программа с переменными, определяются компьютером, но мо- 
гут быть изменены. Старший адрес памяти, разрешенный к 
использованию интерпретатором Бейсика, хранится в системной 
переменной RAMTOP (23730/31). Стандартно он равен 65367. Но 
если программа не вмещается, его можно увеличить до предела — 
до 65535*. Для этого нет необходимости записывать новое зна- 
чение КАМТОР с помощью РОКЕ. Изменить КАМТОР можно с 
помощью специально предназначенного для этого оператора 
CLEAR с параметром 65535. Правда, CLEAR к тому же очистит все 
переменные, массивы, выполнит операторы CLS и RESTORE, вообще 
подготовит программу к новому пуску. 

Если и после перемещения КАМТОР не хватает памяти, при- 
дется применять более изощренные методы. 


Приведем несколько самых распространенных способов сжатия 
бейсик-программ. Хотя в этой области нет предела для фантазии. 

Во-первых, надо свести к минимуму длину имен всех числовых 
переменных. Если их меньше, чем букв в алфавите, то все сделать 
однобуквенными. 

Памятуя, что числовые константы занимают много места, не 
помешает самые часто используемые из них заменить на перемен- 
ные. Надо только единожды в начале программы присвоить им 
требуемые значения. 

Целые числовые константы выгоднее записывать как символь- 
ные и помещать их «под» функцию VAL. К примеру, операторы 
LET a=S и LET a=VAL "5" тождественны, однако второй оператор 
занимает в памяти на две ячейки меныше (но, следует учесть, 
работает медленнее). 

Для сокращения объема памяти, занимаемого программой, бы- 
вает полезно вместо числовых массивов использовать символьные. 
Ведь под каждый элемент числового массива, независимо от того, 
что в нем хранится, отводится по пять ячеек памяти, в то время, как 
под элемент символьного массива отводится лишь одна ячейка. 
Преобразовать же символьную константу в число можно с по- 
мощью той же VAL. 


И, напоследок, парочку «хитростей». Например, вместо нуля, 
который, как и любое число, занимает в памяти 5 байт, можно 
записать просто BIN, либо МОТ Pl. Число «пи» отлично от нуля, и это 
главное, а логический оператор МОТ, по определению, превращает 
его в ноль. Внешне получилось длиннее и мудреней, но в памяти, 
тем не менее, такая запись займет лишь две ячейки. Вывернув- 
шись можно «смоделировать» и единицу. Например, записав 
NOT BIN либо SNG PI. 


* 
При этом, правда, затирается область символов, определяемых пользователем. 
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ЗАЩИТА БЕЙСИК-ПРОГРАММ 





Вообще говоря, коммерческие программы, которые требуют за- 
щиты, обычно пишутся не на Бейсике. Но ради интереса немного 
поговорим и на эту тему. 


Простую (не защищенную) программу в любой момент можно 
запустить, остановить, просмотреть, внести изменения — в общем, 
сделать с ней все, что душе угодно. 


Защита программы может происходить на трех этапах. Во-пер-. 
вых, делают так, чтобы ее невозможно было загрузить в память 
компьютера без специального загрузчика. Во-вторых, чтобы ее 
нельзя было нормальным образом остановить (по Break). И, в- 
третьих, если уж ее остановили, то нельзя было бы ее просмотреть 
с помощью LIST. 


От просмотра программы можно защититься, расставив в ее 
тексте коды управления цветом, окрашивающие листинг в одина- 
ковый цвет тона и фона. Например, если после написания прог- 
раммы вызвать на редакцию ее первую строку и нажать 
комбинацию клавиш CS/SS+CS/7 (белый цвет тона), то строка 
«пропадет». После ввода этой строки (Enter) бесцветным станет и 
весь текст программы. 


Против принудительного останова программы при нажатии кла- 
виши Break (CS/Space) можно использовать ненормальную реакцию 
интерпретатора Бейсика на отсутствие служебного экрана. Надо 
только в системную переменную DF_SZ записать нулевое зна- 
чение: 


РОКЕ 23659,0 


После нажатия ВгеаК компьютер должен отреагировать на него 
выводом сообщения BREAK — CONT repeats на служебный экран. Но 
не тут-то было. Дальше может быть все что угодно, но только не 
просмотр листинга. 


Информации, приведенной в данной главе, явно недостаточно 
для обсуждения более изощренных способов защиты бейсик-прог- 
рамм и, тем более, способов ее «взламывания». Но мы надеемся 
еще вернуться к этому разговору в другой книге. 


$ 


СПРАВОЧНИК ПО $РЕСТКИМ-БЕЙСИКУ 





В этом разделе в сжатой и более строгой форме повторено все, что 
говорилось о 5реснит-Бейсике в первой главе. «Справочник» 
предназначен для тех, кто постоянно работает с Бейсиком. 


Ключевые слова размещаются в алфавитном порядке, для каждого 
приведены: формат, класс, последовательность набора на 
клавиатуре, ссылка на страницу основного текста, краткое 
описание и пример использования. Результаты выполнения 
примеров, выводимые на экран, выделены более жирным 
шрифтом. Примеры, набираемые в непосредственном режиме (без 
номера строки), запускаются нажатием клавиши Enter, программы 
— выполнением оператора RUN. В примерах RUN и Enter опущены. 


После описания ключевых слов приведены: «Тематический указа- 
тель», в котором операторы и функции объединены по сферам их 
применения, перечень сообщений об ошибках, таблица символов 
ZX Spectrum и таблица контрольных кодов. 


При описании ключевых слов используются обозначения, пере- 
численные в начале книги, а также: 


[Е] - расширенный режим клавиатуры (включается 
одновременным нажатием клавиш CS и SS). 


Классы ключевых слов 


По классу ключевые слова подразделяются на операторы, 
функции и логические операторы: 


¢ операторы предписывают компьютеру выполнение определен- 
ной последовательности действий, не связанных с преобразо- 
ванием числовых и символьных значений; формируют прог- 
раммные строки; 


‚ функции создают или преобразуют числовые и символьные 
значения; исходное значение называется аргументом, конеч- 
ное — результатом; используются только совместно с операто- 
рами; 


. логические операторы задают действия над УСЛОВИЯМИ. 


Терминология 


При описании формата операторов и функций применяются сле- 
дующие понятия: 


‹ числовая константа — число в интервале oT 2,8.10-3? до 


1,7.1038; точность представления — 8 десятичных знаков: 
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числовая переменная — имя переменной, хранящей числовую 
константу, начинается с буквы и может состоять из произволь- 
ного количества символов, пробелы игнорируются, заглавные 
и строчные буквы не различаются; 


числовое выражение — допустимая интерпретатором комби- 
нация констант, переменных, функций, объединенных зна- 
ками математических операций, в результате вычисления ко- 
торой получается числовая константа; 


числовое значение — числовая константа, числовая перемен- 
ная, числовое выражение, 


целочисленное значение — числовая константа, переменная, 
выражение, округляющиеся до ближайшего целого; 


символьная константа — последовательность символов, заклю- 
ченная в кавычки (строка символов); 


символьная переменная — имя переменной, хранящей 
символьную константу; составляется из двух символов: буквы 
и знака $; заглавные и строчные буквы не различаются; 


символьное выражение — допустимая комбинация констант, 
переменных, функций, объединенных математическими опе- 
рациями, в результате вычисления которои получается CHM- 
вольная константа; 


символьное значение — символьная константа, символьная 
переменная, символьное выражение. 


Формат 


Формат отражает, какие ключевые слова и значения и в какой 
последовательности необходимо использовать для составления опе- 
раторов и функций. При записи формата приняты следующие 


обозначения: 

%*#> — числовое значение; 

‹с> — целочисленное значение; 

<string> — символьное значение; 

<var> — числовая или символьная переменная; 

< ycnosne> — допустимая комбинация числовых и символьных 
значений, объединенных знаками сравнения и 
логическими операторами; 

<onepatop> — допустимый в данном контексте бейсик-оператор; 

<addr> — значение адреса ячейки памяти (0...65535); 

<n> — номер строки программы (0...9999) 

<row> — номер строки экрана (0...21), 
отсчитывается от верхнего края экрана; 

<col> — номер столбца экрана (0...31), 


отсчитывается от левого края экрана; 


СПРАВОЧНИК 


<x> — горизонтальная координата точки (0...175), 
отсчитывается от нижнего края основного экрана; 

<y> — вертикальная координата точки (0...255), 
отсчитывается от левого края экрана; 

<q> — угол, заданный в радианах; 

<color> — KOA цвета. 


Коды цветов 


0 — черный 5 — голубой 
1 — синий 6 — желтый 
2 — красный 7 — белый 
3 — фиолетовый 8 — режим прозрачности* 
4 — зеленый 9 — режим черно-белого 
контраста** 
Знаки математических операций 
+ сложение = равно 
— вычитание <> не равно 
* умножение < меньше 
/ деление > больше 
f возведение в степень <= меньше или равно 
() скобки >= больше или равно 


Порядок выполнения операций при расчете выражений 


выделение подстроки (сечение) 

функции 

возведение в степень 

минус перед числом (отрицательное число) 
умножение и деление 

сложение и вычитание 

сравнение (=, >, <, <=, >=, <>) 

NOT 

AND 

10. OR 


OOWOOP WH — 


Первыми рассчитываются части выражения, заключенные в 
скобки. 


* _ Неиспользуется в операторе BORDER. 


Только в операторах INK и PAPER. 


xx 
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ABS <z> | [Е] С 


функция стр. 16 
модуль числового значения <Z>. 


Пример: PRINT ABS —3 
3 





ACS <z [Е] SS/wW 


функция стр. 15 
арккосинус, значение аргумента <2> должно находиться в интерва- 
ле от —1 до 1. 


Пример*: PRINT 180/PI*ACS 0.5 


AND SS/Y 
погический оператор, функция стр. 35 
Логический оператор 


реализует логическое умножение. Комбинация условий, объедине- 
нных АМО, истинна, если истинно каждое из условий. 


Пример: LET X=10: IF X>5 AND Х<15 THEN PRINT "YES" 
YES 





Функция 


* возвращает значение, стоящее перед ключевым словом, если 
аргумент не равен нулю; 

‚ возвращает ноль или «пустую строку» (в зависимости от того, 
числовое или символьное значение стоит перед ключевым 
словом), если аргумент равен нулю. 


Пример: PRINT "А" AND 1 
A 
PRINT 3 AND 0 
9 


ASN <z> [Е] 55/0 


функция стр. 15 
арксинус, значение аргумента <2> должно находиться в интервале 
от —1 до 1. 


Пример: PRINT 180/Pl*ASN 0.5 


*  Умножением на 180/PI радианы переводятся в градусы. 
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АТ <row>, <col> $5/1 
оператор стр. 14 
задает знакоместо для вывода данных в операторах PRINT и INPUT. 
Параметр <row> (0...21) определяет номер строки, <col> (0...31) — 
номер столбца. Данные отделяются от АТ знаками-разделителями 
(запятая, точка с запятой, апостроф). 


Пример: PRINT "AAA"; АТ 10,15; "QQQ” 





АТМ <z [Е] SS/E 


функция стр. 15 
арктангенс числового значения <Z>. 


Пример: PRINT 180/Р!* АТМ 1 





ATTR (<row>, <col>) [E] SS/L 
функция стр. 55 
возвращает значение, соответствующее атрибутам знакоместа. 
Позиция знакоместа задается двумя целочисленными значениями, 
записанными через запятую и заключенными в скобки: <row> — 
номер строки (0...23), <col> — номер столбца (0...31). ATTR возвра- 
щает число от 0 до 255, рассчитанное по слелдующей формуле: 


1x<INK>+8x<PAPER> +64x<BRIGHT>+128x<FLASH>, 
где <INK>, <PAPER>, <BRIGHT> и <FLASH> — значения атрибутов*. 
Пример: Если символ в знакоместе с <row>=11, <col>=16 напеча- 
тан синим (код 1) на желтом (6) с повышенной ярко- 


стью без мерцания, то функция ATTR (11, 16) вернет 
число 1+6х8+64+0=112 


ВЕЕР <t>, <h> [E] SS/Z 


оператор стр. 40 
генерирует звук заданной длительности и высоты. Параметр <‹+> 
задает длительность звучания в секундах, <h> — высоту в полуто- 


нах: 0 соответствует ноте ДО первой октавы, диапазон изменения 
от —60 ao 69. При большой длительности звучания допустимый 
диапазон высот уменьшается. 


Пример: ВЕЕР 0.5, 1: REM Нота ДОЗ первой октавы 
в течение 0,5 секунды 


По сути, ATTR возвращает байт, в котором три младших разряда (0...2) определя- 
ют код цвета тона, i he ae три (3...5) — цвета фона, два остальных (би 7), 
соответственно, — BRIGHT и FLASH. Число (0...255), возвращаемое функцией, 
получается при переводе значения байта из двоичного представления в де- 


сятичное: 29 x <INK> + 23х <РАРЕВ > + 29x <BRIGHT> + 2/х <FLASH>. 
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BIN <b> [Е] В 


функция стр. 53 
переводит шестнадцатиразрядное двоичное число <b> в десятичное 
(нули в левой части числа можно опускать). 


Пример: PRINT ВМ 11111110 
254 





BORDER <color> B 


оператор стр. 22 


задает цвет поля вокруг рабочей области экрана и цвет фона слу- 
жебного экрана. Цвет определяется параметром <color>. 





В отличие от операторов INK и PAPER, оператор BORDER не может 
быть использован в операторе PRINT. 


BRIGHT <p> [E] SS/B 
оператор Стр. 22 


устанавливает яркостный режим отображения информации. Пара- 
метр <p> может принимать одно из целочисленных значений: 





1 — включает режим повышенной яркости отображения инфор- 
мации; 
8 — задает режим прозрачности, при котором яркость отобра- 


жения информации будет повторять яркость, ранее установ- 
ленную Аля данного знакоместа, то есть при печати новых 
символов яркие знакоместа будут оставаться яркими, а нор- 
мальные — нормальными; 


О — отменяет режимы повышенной яркости и прозрачности. 


Режим яркости устанавливается целиком для знакоместа и одно- 
временно Аля цвета тона и цвета фона. 


В качестве самостоятельного оператора BRIGHT устанавливает тот 
или иной режим яркости для всех последующих выводов на экран 
(постоянный атрибут). 


BRIGHT может также использоваться в операторах PRINT, INPUT, PLOT, 
DRAW, CIRCLE, устанавливая режим яркости отображения инфор- 
мации, выводимой только данным оператором (временный 
атрибут). В операторах PRINT и МРОТ ключевое слово BRIGHT разме- 
щается в любом месте блока данных, отделяясь от них знаками-раз- 
делителями (запятая, точка с запятой, апостроф). 


BRIGHT в операторах PLOT, DRAW, CIRCLE ставится сразу за ключе- 
вым словом и отделяется от параметров точкой с запятой. 


Пример: PRINT "ААА", BRIGHT 1; "ААА"; BRIGHT 0; "ААА" 
ААААААААА 


САТ 


ключевое слово в 5реснит-Бейсике не задействовано. 
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СНИ$ <k> [Е] U 


функция стр. 18 
возвращает символ по указанному в аргументе коду <k> (0...255). 





Соответствие символов кодам приведено в табл. 1 на стр. 100. 


Коды от 0 до 32 являются управляющими и не имеют символьного 
представления. Функция CHR$ с этими кодами в качестве аргумента 
влияет на вывод информации на экран и принтер (см. табл. 2 на 
стр. 101). 


Пример: PRINT CHR$ 65 


А 
CIRCLE <x>, <y>, <r> [E] SS/H 
оператор стр. 20 


строит на экране окружность. Параметры окружности задаются в 
пикселях тремя целочисленными значениями: <x> (0...175) и <y> 
(0...255) — вертикальная и горизонтальная координаты центра 
окружности, <г> — радиус. 

Цвет окружности соответствует текущим постоянным значениям 
атрибутов либо задается операторами INK, PAPER и другими, постав- 
ленными непосредственно за ключевым словом CIRCLE и отделен- 
ными друг от друга и от параметров `точкой с запятой. 


Пример: CIRCLE INK 3; 128, 88, 87 


CLEAR [<addr>] х 
оператор стр. 65 





обнуляет значения всех переменных, выполняет операторы CLS и 
RESTORE, сбрасывает позицию PLOT и очищает стек GO SUB. 

CLEAR с параметром, кроме того, заносит значение <addr> в систем- 
ную переменную RAMTOP (см. стр. 65). 


CLOSE #‹с> 


оператор используется при работе с потоками и каналами (см. [1]). 


CLS У 


оператор стр. 21 


очищает основной экран и окрашивает его в текущий постоянный 
цвет фона. 
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CODE <string> [Е] 1 
Е ААА 
функция стр. 18 


возвращает код первого символа символьного значения <string> в 
соответствии с таблицей символов ZX Spectrum (cM. табл.1 на 
стр. 100). Если аргумент равен «пустой строке», функция возвра- 
щает 0. 


Пример: PRINT CODE "АВС" 
65 


CONTINUE с 


оператор стр. 33 





продолжает выполнение программы с оператора, на котором оно 
было прервано. 


СОРУ 7, 
оператор стр. 51 


распечатывает копию экрана на принтере. 


COS <q> [Е] W 
функция стр. tS 
вычисляет косинус угла <q>, заланного в радианах. 


DATA ‹данные›, ... [E] D 
оператор стр. 43 
задает список данных — произвольный набор числовых и символь- 
ных значений. Элементы данных размещаются непосредственно 
за ключевым словом и отделяются друг от друга запятыми. Опера- 
тор DATA можно помещать в любом месте программы. Список 
данных может быть распределен между несколькими операторами 
ОАТА. 


Считывание данных (занесение ланных в переменные) 
производится оператором КЕАО. Переменные, используемые в ка- 
честве элементов данных, к моменту считывания должны быть 
определены. Последовательность считывания данных изменяется с 
помощью оператора RESTORE. 


Пример: 10 LET D1=31: LET D2=28 
20 FOR N=1 TO 2 
30 READ X,A$ 
40 PRINT А$;" ";Х;" DAYS" 
50 NEXT N 
60 DATA D1,"JAN”,D2,"FEB” 


JAN 31 DAYS FEB 28 DAYS 
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Ключевое слово DATA может быть использовано также в 
комбинации с LOAD, SAVE, и VERIFY (см. LOAD...DATA, SAVE...DATA и 
VERIFY...DATA). 


DEF FN [E] SS/1 
оператор 

определяет пользовательские функции (дополнительно к «встроен- 
ным» в Бейсик). AAA задания числовой функции после DEF FN 
ставится буква (имя функции), за ней в скобках одна или несколько 
отделенных друг от друга запятыми однобуквенных переменных 
(параметры функции) и следом через знак равенства — числовое 
выражение, задающее саму функцию. 


Пример: 100 DEF FN R(X,Y)=X+Y 
Оператор DEF FN помещается в любое место программы. 


Вызов пользовательской функции осуществляется ключевым сло- 
вом FN. Вслед за ним указывается имя функции и в скобках через 
запятую — значения параметров в порядке, соответствующем их 
следованию в определении функции. 


Пример: PRINT FN R(3,4) 
7 


В этом примере параметру X присваивается значение 3, а У — 
значение 4. 


При расчете пользовательской функции переменные, совпадаю- 
щие по имени с параметрами функции, не изменяются. 


В выражении, залающем функцию, могут использоваться и не 
указанные в скобках переменные. При вызове функции они 
принимают значения, заданные в программе. 





Символьная функция определяется аналогично числовой, только в 
качестве ее имени используется буква со знаком $. 


Пример: 150 DEF FN А$(С$1,|)=С$(1 ТО j) 
200 PRINT FN A$ ("Speccy”,2,4) 


pec 


DIM D 
оператор стр. 41 
задает массив и его размерность. 





Числовые массивы 


При задании числового массива вслед 3a DIM ставится однобуквен- 
ное имя массива и в скобках через запятые одно или несколько (в 
зависимости от размерности массива) целочисленных значений, 
залающих количество элементов массива по каждому измерению. 


Пример: 10 DIM У(5) 
20 DIM Z(10,3) 
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В первой строке примера задается одномерный числовой массив, 
состоящий из 5 элементов (индексированных переменных) 
il. 2h Во второй — двумерный массив из 30 элементов 
2 Е 


После задания массива его элементам присваивается нулевое зна- 
чение. 


Число измерений массива не может превышать 255. 


Параллельно с числовыми массивами в программе могут использо- 
ваться неиндексированные числовые переменные с тем же именем. 


Символьные массивы 


Имена символьных массивов состоят из буквы и знака $. При 
определении массива в скобках после имени, кроме числовых 
значений, залающих его размерность, указывается число, опреде- 
ляющее длину элементов массива (количество символов в них). 


Пример: 10 DIM Z$(20,10) 
20 DIM C$(10,4,5) 


В строке 10 задается одномерный символьный массив из 20 эле- 
ментов 2$(1)...2$(20), каждый из которых представляет собой строку 
длиной в 10 символов. В строке 20 — двумерный массив из 40 
строк длиной по 5 символов. 


М-мерный символьный массив можно рассматривать Kak (N+1)- 
мерный массив с элементами длиной в один символ. Следователь- 
но, можно выделить любой символ элемента массива, указав в 
индексированной переменной, кроме значений индексов, еще и 
номер позиции символа в строке. 


Пример: 70 LET Z$(2)="QWERTYUIOP” 
75 PRINT Z$(2,3) 


После определения символьного массива его элементам 
присваивается значение строки, состоящей из пробелов. Символь- 
ные значения, присваиваемые элементам массива, либо дополня- 
ются пробелами до нужной длины, либо усекаются. 


В отличие от числовых массивов, одновременно с символьным 
массивом не может существовать неиндексированная символьная 
переменная с тем же именем. 


Символьные массивы нулевой размерностн 


Можно определить символьный массив нулевой размерности, ука- 
зав в скобках после имени массива только одно значение. 


Пример: 10 DIM А$(15) 


Заданный массив имеет один элемент А$ — строку фиксирован- 
‘HOH длины, равной указанному в скобках значению, в данном 
случае — 15 символов. 
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DRAW <a>, <b>[, <q>] Ww 
оператор стр. 20 
строит на экране отрезок прямой линии или дугу окружности. 





Аля проведения прямой линии следом за DRAW через запятую 
ставятся два целочисленных значения, задлающих относительное 
расстояние в пикселях от начала отрезка до его конца, соответст- 
венно, по горизонтали (<a>) и вертикали (<b>). При проведении 
отрезка влево и вниз эти значения должны быть отрицательными. 
За начало отрезка принимается точка, выставленная последним 
выполненным графическим оператором (DRAW, PLOT, CIRCLE). 
После включения компьютера начальная точка построения линий 
устанавливается в левый нижний угол основного экрана (0, 0). 


Аля проведения дуги окружности после значений, определяющих 
расстояние от начальной точки построения до конечной, через 
запятую указывается числовое значение <q>. Оно задает угол в 
радианах, получающийся при соединении концов дуги с центром 
окружности, частью которой она является. При положительном 
значении <q> дуга строится против часовой стрелки, при отрица- 
тельном — по часовой. 


Цвета линии соответствуют текущим постоянным значениям 
атрибутов либо задаются операторами INK, PAPER и другими, пос- 
тавленными непосредственно за ключевым словом DRAW и отде- 
ленными друг от друга и от параметров точками с запятой. 


Пример: DRAW МК 2; 80, 50, —0.5 


ERASE 


ключевое слово в Зреснат-Бейсике He задействовано. 





EXP <z> [E] X 


функция стр. 13 


экспонента: возводит число е=2,7182818 в степень, заданную 
числовым значением ¢2>. 
Пример: PRINT EXP 1 


2.7182818 





FLASH <p> [Е] $$/У 
оператор стр. 22 


устанавливает режим мерцания при отображении символьной и 
графической информации. Параметр <p> может принимать одно 
из целочисленных значений: 





| — включает режим мерцания. Изображение на экране компью- 
тера при включенном режиме периодически меняет цвет тона 
на цвет фона и обратно; 
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8 — задает режим прозрачности, при котором режим мерцания 
будет повторять режим, ранее установленный для данного 
знакоместа, то есть при печати новых символов мерцающие 
знакоместа будут оставаться мерцающими, а нормальные — 
нормальными; 

О — выключает мерцание и режим прозрачности. 


FLASH устанавливает режим мерцания целиком для знакоместа. 


В качестве самостоятельного оператора FLASH задает режим мер- 
цания AAA всех послелующих выводов на экран (постоянный 


атрибут). 

FLASH может также использоваться в операторах PRINT, INPUT, PLOT, 
DRAW, CIRCLE, устанавливая режим мерцания графического и сим- 
вольного изображения, выводимого только данным оператором 
(временный атрибут). 


В операторах РАМТ и INPUT ключевое слово FLASH размещается в 
любом месте перед данными, отделяясь от них знаками-разделите- 
лями (запятая, точка с запятой, апостроф). FLASH в операторах 
PLOT, DRAW, CIRCLE ставится сразу за ключевым словом и отделяет- 
ся от параметров точкой с запятой. 


Пример: PRINT "А"; FLASH 1; "В"; FLASH 0; "С" 


FR [Е] 55/2 


функция 
возвращает значение пользовательской функции, заданной опера- 
тором DEF FN. См. описание DEF FN. 





FOR <i>=<a> TO <b> [STEP <s>] F 
оператор стр. 37 


определяет начало и параметры цикла FOR...NEXT, позволяющего 
выполнять часть программы, заключенную между операторами 
FOR и NEXT, заданное число раз. Вслед 3a FOR ставится буква — 
управляющая переменная цикла (<i>), знак равенства и два числовых 
значения, разделенных ключевым словом TO: <a> задает начальное 
значение переменной цикла, <b> — конечное. Далее может сле- 
AOBaTb ключевое слово STEP со стоящим за ним числовым зна- 
чением <s>, зааающим шаг приращения управляющей перемен- 
ной. Шаг может быть как целым, так и дробным, как положитель- 
ным, так и отрицательным. При отсутствии ключевого слова $ТЕР 
шаг устанавливается равным 1. 


Пример: 50 FOR i=1 ТО 25 STEP 5 


После конструкции FOR...TO...STEP размещается тело цикла — фраг- 
мент программы, который требуется повторить заданное число раз. 
В теле цикла может использоваться переменная цикла. Тело цикла 
завершается оператором МЕХТ со стоящей за ним переменной 
цикла. 


Пример: 100 NEXT i 
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Оператор МЕХТ увеличивает значение переменной цикла на задан- 
ный шаг и сравнивает ее новое значение с конечным значением 
<b>. Если переменная цикла не превысила конечное значение, TO 
тело цикла выполняется еще раз, в противном случае цикл завер- 
шается и программа переходит к выполнению следующего за МЕХТ 
оператора. 


Возможно построение неограниченного числа вложенных циклов 
РОК...МЕХТ. 


РОКМАТ 


ключевое слово в Зреснит-Бейсике не задействовано. 





СО SUB <n H 


оператор стр. 45 


передает управление подпрограмме. Номер строки, с которой начи-. 
нается подпрограмма, задается целочисленным значением «п>. 
Текст подпрограммы должен заканчиваться оператором RETURN, 
который возвращает управление оператору, следующему за 
GO SUB. 


Из подпрограммы может осуществляться вызов другой подпрограм- 
мы. Количество таких вызовов (вложений) не ограничено. 


Пример: 25 GO SUB 1000 
30 GO SUB 1000+X 


GO TO <n> G 


оператор стр. 32 


передает управление строке программы. Номер строки задается 
целочисленным значением <n>. В режиме непосредственного ис- 
полнения СО ТО используется для запуска программы с любой 
строки без обнуления переменных и очистки экрана. 





IF ‹условие> THEN ‹оператор > [: < оператор>] ... U 
оператор стр. 33 


передает управление последовательности операторов при выпол- 
нении заданного условия. Условие ставится за IF, последователь- 
ность операторов — после ключевого слова ТНЕМ. При невыпол- 
нении (ложности) условия управление сразу передается на следу- 
ющую строку программы. 


Условием может быть и числовое значение. При этом считается, 
что истинным значением является отличное от нуля значение, а 
ложным — равное нулю. 


Несколько условий может быть объединено логическими а ай 
рами в логическое выражение. 


Пример: 50 IF X<3 THEN РАМТ "КЦ-КИ": GO TO 250 
75 IF X+Y/5 THEN PRINT X+5; 
85 IF A$="AAA" AND A=25 THEN GO SUB 100 
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IN <addr> [Е] SS/I 


функция 

считывает число (байт) из порта (см. [1]). Адрес порта задается 
целочисленным значением <addr> (0...65535), записываемым за 
ключевым словом. 


Пример: 150 LET Хам У 








INK <color> | [Е] $5/Х 
оператор стр. 21 
устанавливает цвет тона — цвет, в который окрашиваются вы- 


водимые на экран символы, точки, линии. Вслед за INK указывает- 
ся целочисленное значение <color> в интервале от 0 до 9, которым 
кодируется цвет. 


После выполнения оператора INK 8 выводимые на экран символы 
и графические объекты будут окрашиваться в цвета, ранее уста- 
новленные для данных знакомест (режим прозрачности). INK 9 
устанавливает белый или черный цвет тона в зависимости от 
цвета р с целью достижения наибольшего контраста (режим 
черно-белого контраста). 


В качестве самостоятельного оператора МК устанавливает постоян- 
ный цвет тона, влияющий на все послелдующие выводы на экран 
(постоянный атрибут). 


INK может также использоваться в операторах PRINT, INPUT, PLOT, 
DRAW и CIRCLE, устанавливая временный цвет тона. В этом случае 
INK влияет Ha цвет символов и графических объектов, выводимых 
только данным оператором (временный атрибут). В операторах 
РАМТ и МРОТ ключевое слово МК размещается в любом месте блока 
данных, отделяясь от них знаками-разделителями (запятая, точка с 
запятой, апостроф). 


Пример: PRINT "DU-DU-DU";INK 3;"KU-KU” 


INK в операторах PLOT, DRAW, CIRCLE ставится сразу за ключевым 
словом и отделяется от параметров точкой с запятой. 


Пример: CIRCLE INK 4; 128,88,87 


INKEYS [#<c>] [Е] м 
функция стр. 39 


возвращает символ, соответствующий клавише, нажатой в момент 
выполнения функции (прописные и строчные буквы различаются), 
либо «пустую строку», если ни одна из клавиш не нажата. Аргу- 
мента не требует. Используется для обнаружения факта нажатия 
клавиши на клавиатуре. 


С параметром #<c> функция используется при работе с потоками 
и каналами (см. [1]). 
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Пример: 60 IF INKEY$<>"q" THEN СО TO 60: REM Останавливает 
работу программы до тех nop, пока не будет нажата 
клавиша 4 (без CS 


INPUT 1 


оператор стр. 31 


вводит данные в программу: присваивает числовым или символь- 
ным переменным, расположенным за ключевым словом, соответст- 
венно, числовые или символьные значения, набираемые на 
клавиатуре. Вводимые значения могут содержать определенные в 
программе переменные. Следом за INPUT в произвольном порядке 
размещаются переменные любого типа и текст комментариев. 
Текст комментариев составляется из символьных и числовых кон- 
стант или переменных. Комментарии, содержащие переменные, 
заключаются в скобки. 





Элементы, следующие за оператором INPUT, отделяются друг от 
друга знаками-разделителями (запятая, точка с запятой, апостроф), 
действие которых аналогично их действию в операторе PRINT. В 
INPUT также могут быть использованы ключевые слова INK, PAPER, 
FLASH, BRIGHT, AT и TAB. 


Пример: 10 INPUT INK 2;"WHAT IS YOUR NAME? ";N$, 
("HOW OLD ARE YOU,"+N$+"? ");AGE 


Комментарии и вводимые данные оператор INPUT отображает в 
нижней строке служебного экрана. После заполнения строки текст 
смещается на строку выше. 


Встретив переменную, не входящую в текст комментария (распо- 
ложенную вне скобок), компьютер выводит на экран курсор и 
ожидает ввода данных. При ожидании символьных данных на 
экран выводятся две кавычки. Данные набираются на клавиатуре 
и отображаются на экране. Они могут редактироваться подобно 
строкам бейсик-программы. После нажатия клавиши Enter на- 
бранное значение присваивается переменной. 


Введя оператор STOP на запрос ввода числовой константы, можно 
остановить выполнение программы. Останов программы в момент 
ожидания символьных данных также производится вводом STOP, HO 
предварительно нужно удалить первую кавычку. 


Избежать появления кавычек при ожидании ввода символьных 
данных можно, используя конструкцию INPUT LINE. Ключевое слово 
LINE ставится перед символьной переменной. Комментарий поме- 
щается между INPUT и LINE. Прерывание работы оператора 
INPUT...LINE производится нажатием клавиш CS/6. 


Пример: 70 INPUT "WHAT IS YOUR NAME? "; LINE N$ 


Используя параметр #<c> в произвольном месте списка парамет- 
ров и данных оператора МРОТ, можно переключать ввод и вывод 
информации на другие потоки (см. [1]). 
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INT <z [Е] К 


функция стр. 16 
округляет числовое значение <z> до ближайшего меньшего целого 
числа. 


Пример: PRINT INT 45.67;" ";INT —7.66 
45 —8 





INVERSE <p> [E] SS/M 
оператор стр. 22 


устанавливает режим инвертированного отображения графической 
и символьной информации. Следом за INVERSE ставится целочис- 
ленное значение <p>, которое может равняться либо 0, либо 1. 





После выполнения оператора INVERSE 1 при печати символов цвет 
тона и цвет фона меняются местами. Графическая информация 
при включенном режиме инверсии отображается цветом фона и 
становится невидимой. Оператор INVERSE 0 устанавливает нор- 
мальный режим цветопередачи. 


В качестве самостоятельного оператора ИММЕЮ$Е устанавливает ре- 
жим инвертирования для всех последующих выводов на экран. 
INVERSE может также использоваться в операторах PRINT, INPUT, PLOT, 
DRAW, CIRCLE. При этом устанавливается режим инвертирования 
графической и символьной информации, выводимой только дан- 
ным оператором. В операторах PRINT и INPUT ключевое слово INVERSE 
размещается в любом месте перед данными, отделяясь от них 
знаками-разделителями (запятая, точка с запятой, апостроф). 


INVERSE в операторах PLOT, DRAW, CIRCLE ставится сразу 3a ключе- 
вым словом и отделяется от параметров точкой с запятой. 


LEN <string> [Е] К 
функция стр. 17 
возвращает длину (число символов) символьного значения. 


Пример: 120 INPUT A$; IF LEN A$>9 THEN GO TO 120: REM «Пропуска- 
ются» строки длиной только до 9 символов 


LET <var>= L 
оператор стр. 28 
присваивает значение переменной. После LET ставится переменная, 
следом за которой через знак равенства записывается присваивае- 
мое ей значение. 
Пример: 60 LET Х=Х+1 

80 LET A$="PITER"+STR$ X 

90 LET S(5,10)=LEN A$ 


До присвоения переменной значения (операторами LET, READ или 
INPUT) она является неопределенной и не может быть использована 
в программе. 
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LINE [Е] $$/3 
См. SAVE, INPUT. 





LIST [<n>] K 


оператор стр. 27 
отображает на экране листинг бейсик-программы, находящейся в 
памяти компьютера. LIST без каких-либо значений после ключевого 
слова начинает вывод листинга с начала программы. Указав после 
LIST номер строки <n>, можно начать вывод листинга с требуемого 
места программы. При этом указатель текущей строки уста- 
навливается на строку с номером <n>. 





После заполнения экрана вывод листинга приостанавливается и 
может быть продолжен после нажатия любой клавиши, кроме М, 
Space, Break. Перечисленные клавиши прерывают выдачу 
листинга. 


LIST #<c> 


оператор используется при работе с потоками и каналами (см. [1]). 





LLIST [<n>] [Е] У 
оператор стр. 51 


распечатывает на принтере листинг бейсик-программы, находящей- 
ся в намяти компьютера, начиная со строки <n>. LLIST без парамет- 
ров распечатывает листинг с начала программы. 





LLIST #‹<> 


оператор используется при работе с потоками и каналами (см. [1]). 


LN <z [E] Z 


ф-нкция стр, 15 
натуральный логарифм положительного числового значения <12>. 


LOAD <string> J 


оператор стр. 47 


загружает в память компьютера бейсик-программу с магнитной 
ленты Имя загружаемой программы задается символьным зна- 
чением <string>. LOAD С «пустым» именем загружает первую 
встретившуюся на ленте программу. При загрузке ранее находя- 
щаяся в памяти программа уничтожается. 


Пример: LOAD "FILENAME" 


LOAD N$ 
LOAD eee 
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LOAD <string> CODE [<addr> ][,<c>] 3...[Е] 1 
оператор стр. 50 


загружает с магнитной ленты в память компьютера блок кодов 
(последовательность байтов}. Имя файла, в котором был сохранен 
блок на магнитной ленте, задается символьным значением <string>. 


За ключевым словом CODE указываются через запятую два цело- 
численных значения: <addr> — адрес размещения блока кодов в 
памяти компьютера и <с> — количество загружаемых байт. При 
pits a параметра <c> по приведенному адресу загружается 
весь блок. 


Без указания числовых значений оператор LOAD...CODE загружает 
блок кодов по адресу, с которого он был записан на магнитную 
ленту оператором SAVE...CODE. 


Пример: LOAD “NAME” CODE 
LOAD "PICTURE” CODE 16384, 6912 


LOAD "" CODE 
LOAD <string> DATA <a>[$]() J...{E] D 
оператор стр. 49 


загружает с магнитной ленты в память компьютера массив. Имя 
файла, содержащего массив, задается символьным значением 
<string>. Следом за ключевым словом DATA указывается однобук- 
венное имя массива <a> с пустыми скобками. Значения, считыва- 
емые с ленты, загружаются в индексированные переменные этого 
массива. 


Пример: LOAD “NUMBER” DATA N() 
LOAD "NAMES” DATA М$() 


LOAD <string> SCREENS J...[E] SS/K 
оператор стр. 49 


загружает с магнитной ленты блок кодов непосредственно в экран- 
ную область памяти, при этом на экране воспроизводится ранее 
записанная картинка. Имя файла, в котором она была сохранена 
на ленте, указывается символьным значением <string>. 


Пример: LOAD "PICTURE” SCREEN$ 


LPRINT [Е] С 








оператор стр. 5 
распечатывает данные на печатающем устройстве. 


Формат оператора зависит от типа принтера и программы, его 
обслуживающей (драйвера принтера). 


Пример: LPRINT "ABCDEF” 
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РАМТ #<c> 


оператор используется при работе с потоками и каналами (см. [1]). 





“MERGE <string> [E] SS/T 





onepatop стр. 48 


подгружает бейсик-программу с магнитной ленты в память KOMIIb- 
ютера, не стирая уже находящейся там программы. Имя загружае- 
мой программы задается символьным значением <string>. Опера- 
тор MERGE с двумя пустыми кавычками подгружает первую встре- 
тившуюся на ленте программу. 


Оператор MERGE соединяет две программы, располагая их строки 
по порядку возрастания номеров. При совпадении номеров строк 
«старые» строки заменяются на «новые». 


MOVE 


ключевое слово в эрестит-Бейсике не задействовано. 





NEW | А 
оператор 


очищает область памяти, отведенную для размещения и работы 
бейсик-программы (область памяти до адреса, занесенного в 
системную переменную КАМТОР). Параметров не требует. 


NEXT <i> N 


оператор стр. 37 


ограничивает тело цикла FOR...NEXT (не используется отдельно OT 
ключевого слова FOR). См. РОК. 


NOT SS/S 
логический оператор, функция стр. 35 
Логический оператор 


реализует логическое отрицание условия, стоящего за ключевым 
словом: истинное условие делает ложным, ложное — истинным. 


Пример: 90 LET X=2: IF NOT X>10 THEN PRINT "YES” 
YES 
Функция 


возвращает 0, если числовое значение, следующее за ключевым 
словом, не равно нулю, 1 — если значение равно нулю. 


Пример: PRINT NOT(5*5—25) 
1 


85 


SPECTRUM-BASIC 


OPEP'! #<c>, "м" 


—— ии 
оператор используется при работе с потоками и каналами (см. [1]). 





OR SS/U 
логический оператор, функция стр. 35 
Логический оператор 


логическое сложение условий. Комбинация условий, объелинен- 
ных одним или несколькими операторами ОК, истинна, если 
истинно хотя бы одно из условий. 


Пример: LET X=20: IF X=50 OR Х=20 THEN PRINT "УЕ$" 
YES 
Функция 


. возвращает значение, стоящее перед ключевым словом, если 
ее аргумент равен 0; 
‚ возвращает 1, если аргумент не равен 0. 


Пример: PRINT 45 OR 5 
1 


OUT <addr>, <byte> [Е] SS/0 


оператор 
записывает в порт целочисленное значение <byte> (0...255), адрес 
которого задается целочисленным значением <addr> (0...65535). 


Пример: OUT 254,3 





OVER <p> [E] SS/N 
оператор Стр. 22 


устанавливает режим наложения изображений на экране. Целочис- 
ленное значение <p> может принимать значения: 


1 — изображение (символьное или графическое) накладывается 
на изображение, уже существующее на экране, не стирая его; 
точки пересечения изображений принимают окраску фона; 


8 — задает режим прозрачности, при котором режим наложения 
соответствует ранее установленному для данного знакоместа; 

0 — устанавливает нормальный режим отображения инфор- 
мации. 


В качестве самостоятельного оператора OVER устанавливает режим 
наложения для всех последующих выводов на экран. 


Ключевое слово OVER может также размещаться в операторах PRINT, 
INPUT, PLOT, DRAW, CIRCLE. При этом режим наложения задается для 
графической и символьной информации, выводимой только дан- 
ным оператором. В операторах PRINT и INPUT ключевое слово OVER 
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размещается в любом месте блока данных, отделяясь от них зна- 
ками-разделителями (запятая, точка с запятой, апостроф). 


OVER в операторах PLOT, DRAW, CIRCLE ставится за ключевым CAO- 
вом и отделяется от параметров точкой с запятой. 


Пример: PRINT АТ 11,15; "YES"; OVER 1; АТ 11,15; "___" 
YES 


PAPER <color> [E] SS/C 


оператор стр. 21 
устанавливает цвет фона — цвет, в который окрашивается экран. 
Следом за PAPER указывается целочисленное значение <color> в 
интервале от 0 до 9, которым кодируется цвет. 





После выполнения оператора РАРЕК 8 при печати в знакоместо цвет 
фона будет принимать значение, ранее установленное для данного 
знакоместа. РАРЕК 9 устанавливает белый или черный цвет фона в 
зависимости от цвета тона с целью достижения наибольшего 
контраста. 


В качестве самостоятельного оператора РАРЕК устанавливает посто- 
янный цвет фона, влияющий на все последующие выводы на 
экран (постоянный атрибут). 


PAPER может также использоваться в операторах PRINT, INPUT, PLOT, 
DRAW, CIRCLE, устанавливая временный цвет фона. В этом случае 
PAPER влияет на фон знакомест, в которые выводится информация 
только данным оператором (временный атрибут). В операторах 
PRINT и INPUT ключевое слово PAPER размещается в любом месте 
перед данными, отделяясь от них знаками-разделителями (запятая, 
точка с запятой, апостроф). 


Пример: PRINT INK 1;"DI-DI-DI";PAPER 5;"KU" 


PAPER в операторах PLOT, DRAW, CIRCLE ставится сразу за ключевым 
словом и отделяется от параметров точкой с запятой. 


PAUSE <t> M 


оператор стр. 39 


приостанавливает работу программы на время, задаваемое цело- 
численным значением <t> (0...65535). Пауза исчисляется в 1/50 
сек. Прервать паузу можно нажатием любой клавиши. Оператор 
PAUSE 0 продолжит работу программы только после нажатия 
клавиши. 





PEEK €addr> [Е] 0 


функция стр. 60 
считывает число в интервале от 0 до 255 (байт) из ячейки памяти. 


Адрес ячейки задается целочисленным значением = <addr> 
(0..65525), 
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Pi [Е] М 


функция стр. 16 
возвращает значение числа «пи» (3,1415927). Аргументов не тре- 
бует. 





PLOT <x>, <y> Q 


оператор стр. 19 
ставит на экран точку (включает пиксель). Позиция точки задается 
двумя целочисленными значениями, следующими через запятую 
после ключевого слова: «х> (0...255) определяет горизонтальную 
координату, <y> (0...175) — вертикальную. 





Цвета точки и фона знакоместа, в которое она помещается, опреде- 
ляются постоянными значениями атрибутов либо задаются вре- 
менными атрибутами. Ключевые слова, залающие временные ат- 
рибуты, размещаются непосредственно за ключевым словом PLOT 
и отделяются друг от друга и от параметров точками с запятой. 


Пример: 160 PLOT INK 2; INVERSE 1; x,y 


POUNT (400) Gy) 


функция 

проверяет состояние пикселя. Если пиксель включен (окрашен в 
цвет тона), функция возвращает 1 и если выключен (окрашен в 
цвет фона), — 0. Координаты пикселя задаются двумя целочислен- 
ными значениями, следующими после ключевого слова в скобках 
через запятую: <x> (0...255) — горизонтальная координата, <y> 
(0...175) — вертикальная. 


Пример: 240 IF POINT (X,Y)=1 THEN GO SUB 600 


POKE <addr>, <byte> о 


оператор стр. 62 
записывает в память целочисленное значение <byte> (0...255). 
Адрес ячейки памяти задается целочисленным значением <addr> 
(0...65535). 


Пример: РОКЕ 23609,255 


PRINT P 
оператор стр. 8 
выводит на экран данные — числовые и символьные значения, 
следующие за ключевым словом. Перед блоками данных в любом 
порядке могут ставиться ключевые слова, залающие позицию, и 
атрибуты выводимых на экран символов (TAB, AT, INK, PAPER, FLASH, 
BRIGHT, INVERSE и OVER). Друг от друга ключевые слова и блоки 
данных отделяются знаками-разделителями: точкой с запятой, за- 
пятой или апострофом. 
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Символьные значения оператор PRINT освобождает от кавычек и 
выводит на экран. Числовые выражения, стоящие 3a PRINT, вы- 
числяются, и на экране отображается результат в десятичной фор- 
ме (не более восьми значащих цифр). Числа больше 108 и мень- 
ше 10-5 отображаются в экспоненциальной форме. 


Пример: PRINT 500000000 
5E8 


PRINT .0000092 
9.2E—6 


Блоки данных, разделенные точкой с запятой, отображаются опе- 
ратором PRINT один за другим без пробелов. Запятая переводит 
текущую позицию печати на середину текущей строки или в 
начало следующей, в зависимости от позиции последнего напеча- 
танного символа. Данные, отделенные апострофом, отображаются 
с новой строки. 


Знак, стоящий в конце оператора PRINT, оказывает действие на 
последующий оператор PRINT. 


Пример: PRINT 10—9;2,3'"ASD" 


12 3 
ASD 


Используя параметр #<c> в произвольном месте списка парамет- 
ров и данных оператора PRINT, можно переключать вывод инфор- 
мации на другие потоки (см. [1]). 


RANDOMIZE [<c>] T 


оператор стр. 54 


задает начало последовательности случайных чисел, генерируемой 
оператором RND. Целочисленное значение <c> (1...65535) задает 
фиксированное начало последовательности. RANDOMIZE без пара- 
метра либо с нулевым значением задает начало последователь- 
ности в зависимости от содержимого системной переменной 
FRAMES (см. стр. 61). При этом достигается относительная слу- 
чайность начала последовательности. 


READ <var>[, <var>]... [Е] A 


оператор стр. 43 


присваивает переменным значения, считываемые из списка данных, 
следующих за операторами DATA. Переменные указываются через 
запятую за ключевым словом. Тип переменных (числовые или 
символьные) должен соответствовать типу ОАТА-ланных. 


Первый в программе оператор READ последовательно считывает 
данные, начиная с первого элемента первого встреченного в прог- 
рамме оператора ВАТА, и присваивает их расположенным за ним 
переменным. Следующий READ продолжает считывание данных. 
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Последовательность считывания данных может быть изменена опе- 
ратором RESTORE. 


Пример: 20 READ A$, X 


REM E 


оператор cto. 31 


отделяет текст комментариев от текста программы. Следом за REM 
могут стоять любые символы. 


Пример: 50 СО ТО 1000: КЕМ Переход на конец программы 


RESTORE [<n>] [Е] $ 
оператор стр. 44 


указывает оператор DATA, с которого нужно считывать данные 
следующим по программе оператором КЕАО. Строка, в которой 
расположен требуемый оператор ОАТА, задается целочисленным 
значением <n>. Если следом за RESTORE не указано никакого зна- 
чения либо оно равно 0, слелующий оператор READ обращается к 
первому в программе оператору DATA. 


RETURN Y 


оператор стр. 45 


передает управление оператору, следующему за последним выпол- 
ненным оператором GO SUB. 


RND [E] T 
функция стр. 54 
возвращает псевдослучайное число в интервале: больше или равно 
0 и меньше 1. Аргументов не требует. 


После включения (сброса) компьютера или выполнения оператора 
NEW функция RND генерирует одну и ту же последовательность 
случайных чисел. Изменить последовательность можно выполнени- 
ем оператора RANDOMIZE. 


Пример: FOR 11 ТО 22: PRINT ВМО: NEXT | 


RUN [<n>] R 
оператор стр. 26 


запускает выполнение бейсик-программы. Строка, с которой нужно 
начать выполнение, задается целочисленным значением <n>. RUN 
без параметра запускает программу со строки с наименьшим но- 
мером. 


Перед запуском программы оператор RUN выполняет CLEAR, то есть 
обнуляет все переменные и т. д. (CM. CLEAR). 
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SAVE <string> [LINE <n>] $ 
оператор стр. 46 


записывает бейсик-программу на магнитную ленту. Программе 
присваивается имя, задаваемое символьным значением <string>. 
Имя должно состоять не более чем из десяти символов и не может 
быть «пустым». При выполнении оператора компьютер выдает 
сообщение: Start tape, then press any key (включите магнитофон, затем 
нажмите любую клавишу). 


В операторе SAVE ключевое слово LINE, стоящее после имени прог- 
раммы, указывает, что программа после ее загрузки оператором 
LOAD будет сразу запущена со строки с номером <n> (автомати- 
чески выполнится оператор GO TO <п>). 


Пример: SAVE "NAME" LINE 1 


SAVE <string> CODE <addr>, <> S...[E] 1 


оператор стр. 50 


сохраняет на магнитной ленте блок кодов (последовательность бай- 
тов). Имя файла, в который записывается блок, задается символь- 
ным значением <string>. Имя должно состоять не более чем из 
десяти символов и не может быть «пустым». 





За ключевым словом CODE указываются через запятую два 
целочисленных значения: <addr> (0...65535) — адрес размещения 
блока кодов в памяти компьютера и <с> — количество входящих в 
него байт. 


Пример: SAVE "РСТИЮЕ" CODE 16384,6912 


SAVE <string> DATA <a>[$]() S...[E] D 


оператор стр. 49 


сохраняет на магнитной ленте массив. Имя файла, в котором сохра- 
няется массив, задается символьным значением <string>. Имя дол- 
жно состоять не более чем из десяти символов и не может быть 
«пустым». Затем следуют ключевое слово DATA и имя массива <a> 
(буква или буква со знаком $) с пустыми скобками. 


Пример: 450 SAVE "NUMBERS" DATA N() 


SAVE <string> SCREENS S...[E] SS/K 


оператор стр. 49 


записывает на магнитную ленту экранное изображение. Имя 
файла, в котором сохраняется экранное изображение, задается 
символьным значением <string>. Имя должно состоять не более чем 
из десяти символов и не может быть «пустым». 
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SCREENS (<raw>, <col>) [Е] SS/K 
функция 


возвращает символ, помещенный в указанном знакоместе экрана. 
Позиция знакоместа задается двумя целочисленными значениями, 
следующими в скобках через запятую следом за ключевым словом: 
<row> (0...21) — номер строки, <col> (0...31) — номер столбца. 


Возвращаются только символы набора, на который указывает 
системная переменная CHARS. При несовпадении изображения в 
знакоместе ни с одним из символов набора функция $СВЕЕМ$ 
возвращает «пустую строку». 


Пример: 160 IF SCREEN$(14,19)="#" THEN PRINT АТ 14,19; "$" 





SGN <z [Е] F 
функция стр. 16 
определяет знак числового значения. SNG возвращает: 

1 — если аргумент положителен, 
—1 — если аргумент отрицателен, 


О — если аргумент равен 0. 


SIN <q> [Е] Q 


функция стр. 15 
вычисляет синус угла <q>, заданного в радианах. 


SQR <z» [E] H 


функция СТР. 15 
вычисляет квадратный корень числового значения <2>. 


STEP S$/D 
оператор стр. 37 
используется для построения цикла FOR...NEXT (см. FOR). 








STOP SS/A 
оператор стр. 33 


останавливает выполнение бейсик-программы. Параметров не тре- 
бует. После остановки программы ее выполнение может быть 
продолжено оператором CONTINUE с оператора, слелующего 3a STOP. 


о ма te es 


(eR re 
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$ТВ$ ‹:> [Е] У 


функция стр. 17 
преобразует числовое значение <z> в символьное. STR$ возвращает 
значение аргумента в виде символьной константы. 


Пример: PRINT LEN STR$ 100 
3 


TAB <col> [Е] P 
оператор стр. 14 
задает позицию вывода на экран в текущей строке. Целочисленное 
значение <col> (0...31) указывает номер колонки. Если <col> мень- 
ше текущей позиции вывода, символ помещается в заданную 


позицию, но строкой ниже. ТАВ используется только совместно с 
операторами PRINT и INPUT. 


Пример: PRINT TAB 1;"A";TAB 5;"В";ТАВ 3;"C" 


A B 
с 


ТАМ <q> [Е] Е 


функция стр. 15 
вычисляет тангенс угла ‹а>, заданного в радианах. 


ТНЕМ SS/G 
Co. IF. 

TO SS/F 
оператор, функция стр. 16 
Оператор 


используется для построения циклов FOR...NEXT (см. FOR). 
Функция 


выделяет подстроку (выполняет сечение) символьного значения. 
Начальная и конечная позиции сечения задаются двумя цело- 
численными значениями, которые записываются через ключевое 
слово ТО в скобках следом за символьным значением. 


По умолчанию первый аргумент принимает значение, равное 1, 
второй — равное длине символьного значения. 


Пример: PRINT "DU-DU"(2 TO 4) 
U-D 
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USR [Е] L 
функция стр. 56 
С целочисленным значением <addr> 


передает управление подпрограмме в машинных кодах, располо- 
женной по адресу <addr> (0...65535}. После выполнения подпрог- 
раммы возвращает содержимое регистровой пары процессора ВС. 


Пример: RANDOMIZE USR 65000 


С символьным значеннем 


возвращает адрес первого из восьми байтов, залающих изобра- 
жение символа, определяемого пользователем. Следом за USR ука- 
зывается односимвольное значение, соответствующее одной из 21 
клавипг (от A ло VU). 


Пример: PRINT USR "а" 
65368 


VAL <string> [Е] J 


функция стр. 17 
преобразует символьное значение, представляющее собой символь- 
ную запись числового значения, в числовую константу. 


Пример: PRINT VAL "3+5"—5 





3 
VALS "<string>" [Е] SS/J 


функция 

возвращает строку символов, представляющую собой результат 
вычисления символьного выражения, записанного в виде символь- 
ной константы. 


Пример: 10 LET A$="ss": LET. B$="rr" 
20 LET C$="A$S+""D"" +B$" 
20 PRINT C$, VAL$ C$ 


A$+"D"+B$ ssDrr 


VERIFY <string> [Е] SS/R 
оператор стр. 47 
проверяет правильность записи программы на магнитную ленту. 
Имя проверяемой программы задается символьным значением 
<string>. Если олноименные программы: программа, записанная на 
магнитной ленте, и программа, находящаяся в памяти компьютера, 
не совпадают, то выдается сообщение об ошибке: Tape loading error. 


С помощью операторов VERIFY...DATA, VERIFY...SCREEN$ и 
VERIFY...CODE можно проверить правильность записи массивов, 
экранного изображения и блоков KOAOB, указав после имени прог- 
раммы соответствующее ключевое слово с параметрами. 
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инвертирование изображения ............... INVERSE .... анк Стр. 22, 82 
наложение изображения ..................... OV ER ааа Crp. 22, 86 
определение атрибутов знакоместа........ BATE Е Стр. 35,. 71 
Алгебраические функции 
ЕТО: ПИ" csaconvececseuscnensnswrssegncorencoms ана Стр. 16, 88 
а ic srcnccen sacs sna sish ee acmeeeredennvesses ‚=> ИРАНЕ Crp. 15, 74 
CWC ааа касании растения GON sssssdascannevenevemes Crp; 13: 92 
TORS isa rcscnanwcianusagnncennanvessniawsdanien TR kcvcessrdeemaeenane Crp. 15, 93 
МОНЫ ES оон ии BGS о халескикнение Стр. 15, 70 
р os cacintersii Tide aaivONENeAEREtEERES звене аа Cre. 15, 70 
ЗОКТАНГЕНЕ нием вания LO ВЕ Уча Crp. 15,71 
квадратный корень .....................ннньн., <. ИИ ВОНИ Стр. 15, 92 
STINT О О BAP scihtinircendecataaes Crp. 15, 77 
натуральный логарифм ....................... М ринит Стр. 15, 83 
ДИОДЫ WAGRR, cncsiannstanvnsuladuantanntaweddiah ROS vi txisstice cece Стр. 16; 70 
SHG ЗОНА ровер вииеьена DREN uviasiwensevenursusss Crp. 16, 92 
округление MAGNE ciiisssccevcciunscsesevacsveees NGS wcasnaiucuvcanmmicans Crp. 16, 82 
перевод двоичного числа в десятичное ... ВИМ..................... Стр, 53, 72 
Пользовательские функции 
ЗаниниЮ C VHGA сек xen ns conssnsexecens sens ма, РНЕ И Стр. 75 
вычисление значения функции .............. PPM окна викекич Стр. 78 
Логические операции 
логическое умножение ....................... |. аи нь Стр. 35, 70 
ОТРИЦАНИЯ saxrcvivsccienxisscsrmnevasielsamenanens PY нк stetnneticistterriac Crp. 35, 85 
логическое сложение ......................... В оленя Стр. 35, 86 


Случайные числа 


начало поспедовательности 
CTY MAE ЧИН: „с оееокконьии аа еаа RANDOMIZE......... Crp. 54, 89 


псевдоспучайное число ....................... i ore rc reer Crp. 54, 90 
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Символьные (строковые] функции 
ДНИ ЕТ невезение REN sccccnnanspanradees Crp. 17, 82 
выделение фрагмента строки ............... ТО ucncsasreccesasencnns Стр. 16, 93 
считывание символа из знакоместа......... SCREENS.............. Crp. 92 
преобразование числа в строку............. ТИ екран Стр. 17, 93 
преобразование строки в число............. М ccvcsnccmavswses wows Crp. 17, 94 
преобразование символьного значения в 
символьную константу ........... ее. ннньн В ОЕ Стр. 94 
симвоп, соответствующий коду ............. о с ПНА Crp. 18.73 
код, соответствующий символу ............. ВЕ иельна Стр. 18, 74 
Операции с ячейками памяти 
чтение числа из памяти .......... у.е e eee eee и Стр. 60, 87 
запись числа в память...............ньнениине. RNAS i ceiesiesewanmunana Crp. 62, 88 
адрес размещения символов, 
определяемых пользователем............... В к бовиазизаних Стр. 56, 94 
Работа с портами 
чтение их Порта: зы оалаи ева Перье ланемя Стр. 80 
Запись: в NODE сроков нана вов ыжаачия ЗУ een Стр. 86 
Работа с магнитофоном 
Загрузка программ 
загрузка бейсик-программы.................. КЕ то ИАНИР Стр. 47, 83 
загрузка блока КОДОВ... „ео снанониканнакьь LOAD...CODE....... Crp. 50, 84 
SETOYVSRA МАССИВ рен LOAD...DATA....... Стр. 49, 84 
загрузка экранного изображения........... LOAD...SCREENS... Стр. 49, 84 
подгрузка бейсик-программы............... МЕЙСЕ. ана: Стр. 48, 85 
Сохранение программ 
сохранение бейсик-программы ............. ВАТ Е ео sivmaiive Crp. 46, 91 
сохранение блока кодов ...................... SAVE...CODE ....... Стр. 50, 91 
сохранение массива ............ „ее еньньь» SAVE...DATA ....... Стр. 49, 91 
сохранение экранного изображения ....... SAVE...SCREENS$ ... Стр. 49, 91 
проверка правильности записи .............. а Стр. 47, 94 
Вывод на печатающее устройство 
печать символьных данных ................... р etic sicnmwna wwe Crp. 51, 84 
печать листинга бейсик-программь......... OD ЧИ Стр. 51, 83 
печать копии экрана............. зн. еннынь, CPT О" Стр. 51, 74 
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Сообщения об ошибках 





При обнаружении ошибки интерпретатор останавливает выпол- 
нение программы (или бейсик-оператора, набранного в непосред- 
ственном режиме) и выводит в нижней части экрана соответству- 
ющее сообщение. Каждое сообщение содержит код (цифру или 
букву), указание на причину ошибки и номер строки и оператора 
в ней, на котором остановилось выполнение программы. 


ah 


м 


ws 


$ 


w 


© 


~ 


< 


> 


OK 


Успешное завершение программы или попытка перейти Ha 
строку с номером, большим любого, имеющегося в программе. 


NEXT without FOR NEXT 6e3 FOR 
встречен оператор NEXT без соответствующего FOR. 


Variable not found переменная не найдена 


переменная была использована без присвоения ей значения или 
загрузки значения с ленты. 


Subscript wrong неправильный индекс 
значение индекса вышло за границу размерности массива. 

Out of memory ‚ нет памяти 
не хватает памяти для выполнения оператора. 

Out of screen выход за экран 


оператор INPUT сгенерировал более 22 строк в нижней части 
экрана, или в АТ был использован номер строки, превышающий 
zi. 


Number to big чиспо слишком вепико 
в результате вычислений получается число больше 1.9.1078 
(возможно, была попытка деления на 0). 

RETURN without 60558 ___________ КЕТКМ без СО SUB 
число операторов RETURN больше числа GO SUB. 

End of file конец файла 
сообщение в 5реснит-Бейсике не используется. 


STOP statement onepatop STOP 


был использован оператор STOP для остановки программы. 
CONTINUE продолжит выполнение со следующего оператора. 


Invalid argument недопустимый аргумент 
функция получила недопустимое значение аргумента. 
Integer out of range округление вышло за границы 


значение было округлено до ближайшего целого и не попало в 
допустимый диапазон. 


СПРАВОЧНИК 


Nonsense т BASIC бессмысленно в Бейсике 
оператор не имеет смысла с точки зрения 5ресгат-Бейсика.. 
BREAK — CONT repeats прерывание — CONTINUE повгорит 


останов по клавише Break. CONTINUE повторит оператор, при 
выполнении которого произошло прерывание. 


Cut of DATA нет данных 


количество считываний данных операторами READ превысило 
количество элементов данных в операторах DATA. 


Invalid file name недопустимое имя файла 


в операторе SAVE указано недопустимое имя файла (меньше 
одного символа или больше 10 символов) либо использовано 
недопустимое имя канала в операторе OPEN# (см. [1]). 


No room for line нет места для строки 


не хватает свободной памяти для ввода новой строки программы. 


STOP in INPUT STOP 8 onepatope INPUT 
ввод STOP на запрос оператора INPUT. 
FOR without NEXT FOR 6e3 NEXT 


число операторов NEXT меньше числа операторов FOR, и OAHOB- 
ременно некорректно заданы предельное значение управляю- 
щей переменной и шаг ее изменения. 


Invalid 1/O device недопустимое устройство ввода/вывода 


сообщение, используемое при работе с каналами и потоками (см. 


[1]). 
invalid colour недопустимый цвет 


задано недопустимое значение в INK, PAPER, FLASH, INVERSE или 
ОУЕК, или использован недопустимый управляющий символ. 


BREAK into program прерывание программы 


нажата клавиша Break. В сообщении указывается оператор, 
выполненный последним. Оператор CONTINUE продолжит выпол- 
нение программы со следующего оператора. 


RAMTOP no good недопустимый RAMTOP 


значение, занесенное в системную переменную КАМТОР, слиш- 
ком мало. 


Statement lost нет оператора 
была предпринята попытка перехода на несуществующий опе- 
ратор. 


invalid stream недопустимый поток 


сообщение, используемое при работе с потоками (см. [1]). 
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P FN without DEF р ЕМ без ОЕР 
вызов функции пол `зователя без ее определения. 
Я Parametr error ошибка в параметрах 


оператор ЕМ содержит неверное количество параметров, или 
один из них имеет значение непр`вильного типа (например, 
символьное вместо числового или наобоэот). 


R Tape loading error ошибка при загрузке с пенты 





неудачно прошла процедура загрузки, подгрузки или проверки 
файла. 


Символы ZX Spectrum* 


Таблица 1. 





Коды 0...31 управляют выводом информации на экран и называются контроль- 
ными (см. табл. 2). 


100 


СПРАВОЧНИК 


Иа со # |3 
213 | MERGE 237 


: 88 | SAVE 
9 | RANDOMIZE 
т $ IF 


“99, RESTORE | 


232 | CONTINUE 


“3331 DIM 





Контрольные коды ZX Spectrum 


Таблица 2. 





с5/55 +9 
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Денствие 


3/3 Не используется 


57. 
(аналогично запятой в PRINT) 

на одно знакоместо влево (Backspace) q 
(Carriage Return + Line Feed) 

5755 
575 
57550 
57551 
57553 
5755 +3 
5/55 +4 
5/3545 
| Утезвление познай печати (AT contol) 
57554 650 
5755 +657 
5/38 + 65/2 
575546573 
8 | S/S + C/A 
9 | 657546573 
65755578 
C/E +E? 
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КОМПИЛЯТОРЫ 
SPECTRUM-BEMCHKA 


В начале книги, помимо интерпретации, упоминался еще один 
способ перевода программ с языков высокого уровня на язык 
кодов процессора — компиляция. Главное преимущество этого 
способа — увеличение быстродействия программ. 

ZX Spectrum может порадовать программистов тем, что для него 
создано множество различных компиляторов Бейсика, от самых 
простых целочисленных, не «переваривающих» дробные числа и 
понимающих лишь ограниченный набор ключевых слов, до мощ- 
ных, которые, кроме поддержки почти всех операторов базового 
интерпретатора, реализуют еще и некоторые дополнительные 
инструкции. 

Но, к сожалению, компиляторы 5ресиат-Бейсика He удовлетво- 
ряют всем требованиям, предъявляемым к подобного типа прог- 
раммам. Например, ни один из них не поддерживает полный 
набор инструкций интерпретатора. Кроме того, (и это, пожалуй, 
самое неприятное) оттранслированная программа не работает без 
присутствия в памяти компьютера самого компилятора. Дело в том, 
что любой компилятор содержит так называемые библиотеки 
системных процедур — набор подпрограмм в машинных кодах. 
Компиляторы, реализованные на компьютерах более высокого 
класса, как правило, вставляют в оттранслированный текст лишь 
те системные процедуры, которые нужны именно в данной прог- 
рамме. Авторы же компиляторов Spectrum-beHcuka решили не 
усложнять себе задачу, и в результате написанные ими продукты 
«навешивают» на оттранслированную программу все, без выбора, 
системные процедуры, а заодно и саму процедуру компиляции. А 
от такого упрощения — лишь дополнительный расход памяти. 


Теперь коротко о TOM, какие компиляторы и почему будут описа- 
ны в этой главе. Мы решили ограничиться программами с безуп- 
речной репутацией. Именно поэтому в книгу не включено 
описание пакета Toolkit/Blast, склонного (в том виде, в каком он 
дошел до нашего Отечества) к непредсказуемому поведению, не 
соответствующему его блестящей аттестации в фирменном 
описании. Еще мы старались отобрать достаточно непохожие друг 
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на друга компиляторы, занимающие свою бобственную «3KO- 
логическую нишу». Так, целочисленный ZX-Compiler v.1.0 — ca- 
мый простой и наименее совместимый по синтаксису с интерпре- 
татором, но он же и самый короткий. MCoder 2 занимает в памяти 
почти в два раза больше места, но, в отличие от ZX-Compiler, 
понимает, что такое числовые массивы. Softek IS массивы не 
«переваривает», но поддерживает несколько новых инструкций, 
неведломых интерпретатору. Softek ЕР является простейшим из 
компиляторов, умеющим правильно делить один на два, а Tobos FP 
наиболее близок по синтаксису к интерпретатору (список 
ограничений минимален), но считает дробные числа с точностью 
не до восьми, а лишь до семи значащих цифр. Так что имеет смысл 
познакомиться с каждым из перечисленных компиляторов, чтобы в 
конкретном случае найти оптимальный компромисс между скоро- 
стью работы скомпилированной программы и ее возможностями. 


И все же, несмотря на 
различия, описанные в книге 
компиляторы имеют немало об- 
щих черт. Но текст описаний не 
выиграл бы от многочисленных 
перекрестных ссылок от одного 
компилятора на другой. Поэто- 
му мы старались (а улалось ли 
— судить читателю) найти золо- 
тую середину межлу требова- 
нием автономности каждого 
описания и стремлением не 
повторяться. 


Несколько слов о структуре 
этой главы. Сначала будут рас- 
смотрены три целочисленных 
компилятора, а затем еще два, 
поддерживающие работу c 
дробными числами. Специаль- 
ный раздел посвящен записи 
готового программного продук- 
та на магнитный носитель. 
Справочный материал, касаю- 
щийся совместимости синтак- 
сиса компиляторов и интерпре- 
татора, приведен в Приложе- 
нии 1. Основные «TaKTHKO- 
технические» характеристики 
рассматриваемых KOMIIHASATO- 
ров содержит Приложение 2. 

Разные компиляторы могут 
иметь одинаковые или похожие 
названия, и, наоборот, одна и 
та же программа может встре- 
чаться под разными именами. 
Поэтому при рассмотрении 
очередного компилятора будут 
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оговариваться его отличительные 
особенности, а также, по BO3MOX- 
ности, перечисляться различные 
имена, под которыми он встреча- 
ется. 

Компилятор диалекта Газег- 
Basic рассмотрен в соответствую- 
щей главе. Впрочем, он может 
применяться и для компиляции 
обычных бейсик-программ. 


Последнее замечание адресо- 
вано владельцам дисковой опе- 
рационной системы TR-DOS. Все 
рассматриваемые компиляторы 
не поддерживают инструкции 
обращения к дисководу. Сущест- 
вующие «дисковые» версии 
компиляторов умеют лишь загру- 
жаться с диска. 





ЦЕЛОЧИСЛЕННЫЕ КОМПИЛЯТОРЫ 





ZX-Compiler 


ZX-Compiler v.1.0* — один из первых компиляторов Spectrum- 
Бейсика, почти ровесник Speccy. Он также известен под именем 
Integer Compiler, или просто Compiler. 


После загрузки программа предложит нажать любую клавищу, 
и если последовать ее совету, то автоматически выполнится опера- 
тор NEW: картинка пропадет, и на экране появится строчка 


© 1982 Sinclair Research Ltd. 


Эта особенность загрузки ZX-Compiler обычно вводит в заблуж- 
дение неопытных программистов, которые воспринимают ее как 
сброс компьютера. В действительности же все идет по плану: 
область бейсик-программы очистилась от загрузчика, а собственно 
компилятор остался в неприкосновенности**. 

Оператор NEW можно выполнять и самостоятельно для быстрого 
удаления текста исходной бейсик-программы. При этом и 
компилятор, и скомпилированная программа остаются не- 
тронутыми. 


*  @upMa Threlfall & Hodgson, 1982 г. Файлы: COMPILER (тип BASIC, длина 875 байт) 
и COMPILER (тип CODE, длина 3600 байт, адрес загрузки 59990). 


* 
** Так ведут себя после загрузки многие компиляторы $ресгит-Бейсика. 
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После загрузки компилятор с пакетом рабочих процедур распо- 
лагается в памяти с адреса 59990. по 63590. Содержимое этой 
области изменять нельзя. 


Исходный текст программы на Бейсике вводится обычными 
способами: с клавиатуры, с ленты, с диска. Бейсик-программу 
можно редактировать, запускать на исполнение и т. п. Присут- 
ствие в памяти компилятора никак не отражается на работе интер- 
претатора 5реснит-Бейсика, если не считать некоторого умень- 
шения объема доступной ему памяти. 

Объемы исходного бейсиковского текста и скомпилированной 
программы задаются установкой КАМТОР. Напомним, что эта 
системная переменная ограничивает «сверху» область, предназна- 
ченную AAA бейсик-программы. С другой стороны, значение 
RAMTOP, увеличенное на единицу, определяет адрес, с которого 
после компиляции будет размещена скомпилированная программа 
(см. табл. 3 на стр. 121). Заранее (то есть до компиляции) трудно 
подобрать оптимальное расположение. КАМТОР?Р, так как предска- 
зать в точности размер скомпилированной программы 
практически невозможно. Обычно он близок к размеру исходного 
текста, несколько превышая его. Поэтому первоначально ZX- 
Compiler устанавливает КАМТОР на адрес 39999. При необ- 
ходимости значение КАМТОР в любой момент можно изменить 
обычным способом, введя с клавиатуры оператор: 


CLEAR ADDR 


— rae ADDR — требуемое значение RAMTOP. 

При завышенном значении КАМТОР может возникнуть ситу- 
ация, когда оттранслированной программе не будет хватать отве- 
денного для нее места. В этом случае компилятор прервет работу и 
выдаст сообщение: 


Out of memory 


Попробуем скомпилировать бейсик-программу с большим Bpe- 
менем выполнения, например: 


10 CLS 

20 FOR A=0 TO 175 
30 FOR B=0 TO 255 
40 PLOT В, A 

50 NEXT В: NEXT А 


Эта программа последовательно, точка за точкой, закрашивает 
экран цветом тона. Нужно запастись достаточным терпением, что- 
бы, запустив ее оператором RUN, дождаться сообщения 0 OK. 
Прибегнем к помощи компилятора. 

Запускается ZX-Compiler оператором 


RANDOMIZE USR 60000 


Компиляция осуществляется в два прохода. Второй проход Hy- 
жен для того, чтобы правильно расставить адреса переходов и 
зарезервировать память для хранения переменных скомпилиро- 
ванной программы (последние, как и переменные бейсик-прог- 
рамм, хранятся сразу после основного текста). В процессе компи- 


106 


ZX-Compiler 


ляции в исходном тексте могут быть обнаружены синтаксические 
ошибки: наличие инструкций, законных с точки зрения интерпре- 
татора, но не поддерживаемых компилятором. Ошибки отлавлива- 
ются, как правило, на первом проходе, при этом компиляция 
останавливается и на экран выводится часть «дефектной» строки 
до «ошибочного» оператора, помеченного знаком вопроса. 


В процессе каждого прохода на экран выводится текст исходной 
программы. После успешного завершения первого прохода необ- 
ходимо нажать любую клавишу (кроме Space). Нажатие Space или 
Break (CS/Space) прервет процесс, и компьютер перейдет в режим. 
интерпретатора. 

Компиляция сопровождается также отображением в верхней 
части экрана адреса окончания скомпилированной на данный 
момент части программы. Это число достигает своего максималь- 
ного значения в конце второго прохода. 

Итак, компиляция кашего примера успешно завершилась сооб- 
щением 0 OK. 

По адресу конца скомпилированной программы (для рассма- 
триваемого примера он равен 40123) можно рассчитать ее длину: 


40123-(RAMTOP+1) 


Подставив значение RAMTOP, равное 39999, получим число 
123. Аля сравнения, исходная программа на Бейсике вместе с 
переменными занимает 117 байт. 

Запускается скомпилированная программа оператором 


RANDOMIZE USR (RAMTOP+1) 


AAS запуска нашего примера введем с клавиатуры 


RANDOMIZE USR 40000 


Не правда ли, впечатляющее зрелище? Программа, Ha выпол- 
нение которой интерпретатору требовалось почти 6 минут, в ском- 
пилированном виде выполняется за 22 секунды! 

Да, действительно, целочисленные компиляторы, к которым от- 
носится ZX-Compiler, обеспечивают поистине фантастическую 
скорость выполнения операций. Кроме того, приведенный пример 
не может в полной мере продемонстрировать эффективность ком- 
пилятора, так как скорость выполнения программ, использующих 
вывод на экран графики, сильно ограничена быстродействием 
подпрограмм ПЗУ. Трансляция программ, выполняющих только 
арифметические операции, дает гораздо больший выигрыш во 
времени. Например, слелующая программа: 


10 LET C=0 

20 FOR A=0 TO 175 
30 FOR B=0 TO 255 
40 LET C=C+1 

50 NEXT B: NEXT A 


после компиляции будет работать уже более чем в 80 раз быстрее 
оригинала! 
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Однако за такую высокую скорость приходится дорого рас- 
плачиваться: ZX-Compiler предъявляет довольно жесткие требова- 
ния к исходному тексту программы. 

После включения в текст программы, например, оператора 
ОМ А(10), на первом же проходе компилятор с недовольным гу- 
дением остановит трансляцию и выдаст сообщение 
Nonsense т BASIC, указав место ошибки мигающим знаком $. Прог- 
раммный курсор в этом случае расположится в строке, содержа- 
щей ошибку, так что AAA вызова ее на редактирование достаточно 
будет нажать Edit (CS/1). 

Существует ряд корректных с точки зрения стандартного Бей- 
сика операторов и функций, компиляцию которых ZX-Compiler He 
поддерживает. Их исчерпывающий перечень приведен в Прило- 
жении 1. Здесь лишь пробежимся по этому списку. 

Разумеется, не поддерживаются функции, возвращающие, в 
общем случае, нецелочисленный результат (SIN, COS, TAN, ASN, ACS, 
АТМ, LN, EXP), a также вызов числа Pl. Исключением является функ- 
ция $ОК, но при ее расчете отбрасывается дробная часть результата. 
То же самое происходит и при выполнении операции деления. Не 
допускается использование в исходном тексте операции возведения 
в степень и функций, определяемых пользователем (DEF FN, FN). 

Не поддерживается работа с символьными переменными, и, 
следовательно, нельзя включать в текст бейсик-программы функ- 
ции VAL, VAL$, SCREEN$, LEN, STR$ и оператор INPUT с ключевым 
словом LINE. Опрос клавиатуры с помощью функции INKEY$ в 
таком случае возможно реализовать только «в тандеме» с 
функцией CODE, например: 


LET с = CODE INKEY$ 
PRINT CODE INKEY$ 


Не допускается работа с массивами, как числовыми, так и 
символьными, вне зависимости от их размерности. 

Запрещено применение операторов GO ТО и GO SUB с перемен- 
ной или выражением в качестве параметров. Номер строки, к 
которой осуществляется переход, можно указывать только в явном 
виде — числом. 

Выражения, используемые в качестве аргументов функций, во 
всех случаях должны быть заключены в скобки, например: 


CIRCLE X, (Y+16), 10 


или 
PRINT АТ (A+1), (2*8) 


Не поддерживаются логические операции (NOT, OR, AND). 

Функция RND генерирует значения в диапазоне от 0 до 32767. 

Оператор STOP, независимо от его местонахождения в програм- 
ме, трактуется как ограничитель текста программы. Весь текст 
после этого оператора при компиляции игнорируется. 

Запрещены операторы SAVE, LOAD, CONTINUE, CLEAR, LIST, NEW, 
RANDOMIZE. 

Результат функции USR с символьным аргументом выдается в 
скомпилированной программе в так называемом «дополнительном 
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коде» в диапазоне от —32768 ao +32767*. Например, оператор 
PRINT USR "A" выводит на первый взгляд странный результат: —168 
(вместо привычного 65368). Для чисел в диапазоне от 0 до 32767 
дополнительное представление числа совпадает с обычным. AAA 
чисел в диапазоне от 32768 до 65535 пересчет из одной формы в 
другую следует производить по формулам: | 


N1=N2-65536 (№2=32767...65535) 
N2=N1+65536 (№!=-32768...0) 


— rae М! — дополнительное представление числа №2. Функция 
USR с символьным аргументом — это единственный случай, когда 
приходится помнить об этом, поскольку для инструкций POKE и 
PEEK, а также для USR с числовым аргументом допустимо указывать 
значения аргументов как в обычном, так и в дополнительном 
представлении. 

Операторы READ и DATA работают без особенностей, однако 
RESTORE употребляется только с параметром. 

Все компиляторы З5реснит-Бейсика позволяют включать в текст 
компилируемой программы обращения к подпрограммам в 
машинных кодах, осуществляемые с помощью функции USR. Одна- 
ко поскольку ZX-Compiler не поддерживает оператор RANDOMIZE, а 
также не допускает использования выражений в качестве парамет- 
ров операторов GO ТО и GO SUB, наиболее часто употребляющиеся 
формы RANDOMIZE USR <agpec>, GO ТО USR <appec> и 
GO SUB USR ‹адрес> трактуются как ошибочные. Приходится исполь- 
зовать другие операторы, например: 


PRINT USR <anpec> 
LET N=USR <anpec> 


Здесь нелишне напомнить, что функция USR при использовании 
ее для обращения к процедурам в машинных кодах возвращает 
интерпретатору содержимое регистровой пары ВС, которое 
воспринимается как параметр оператора, предшествовавшего USR. 
Tak, оператор LET N=USR ‹адрес> присвоит переменной М значение, 
содержащееся в регистровой паре BC, оператор PRINT USR выведет 
его на экран ит. п. 


Несмотря на то, что ZX-Compiler по природе своей может рабо- 
тать только с целыми числами, все же для параметров оператора 
ВЕЕР он делает исключение. BeAb использование ВЕЕР теряет смысл, 
если, например, длительность звука нельзя сделать меньше секун- 
ды. Поэтому ZX-Compiler позволяет задавать параметры ВЕЕР в виде 
натуральных дробей, например, так: 


ВЕЕР 1/10, (n+1/8) 


У читателя может возникнуть вопрос: «Стоит ли вообще пользо- 
ваться таким компилятором, как ZX-Compiler?» Действительно, 
нужен ли этот самый старый, самый «ограниченный» и не самый 
быстродействующий компилятор? Все перечисленные недостатки 


у—— к 


Это происходит потому, что старший бит двухбайтового числа трактуется не как 
значащий разряд, а как знак: 0 — плюс, 1 — минус. 
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можно простить за одно лишь достоинство ZX-Compiler, которое в 
некоторых случаях может оказаться решающим: он занимает в 
памяти почти в два раза меныше места (всего 3600 байт), чем 
наименыший из других компиляторов, описываемых в этой книге. 


О том, как записать скомпилированную программу на внешний 
носитель и снабдить ее программой-загрузчиком, то есть сделать 
из нее законченный программный продукт, будет сказано в разде- 
ле, специально посвященном этому вопросу (см. стр. 120). 


MCoder 2 





Компилятор MCoder 2* — вторая версия ZX-Compiler, 
значительно превосходящая своего предшественника. Основным и 
неоспоримым достоинством MCoder 2 является возможность рабо- 
ты с одномерными числовыми массивами и символьными пере- 
менными. В остальном список особенностей компилятора почти 
совпадает с соответствующим списком ZX-Compiler (подробно — в 
Приложении 1): 


не поддерживаются математические функции SIN, COS, ТАМ, 

ASN, ACS, АТМ, LN, EXP, Р функции VAL, VAL$ и функции, 

определяемые пользователем (DEF FN, FN); 

недопустимо использование переменных или выражений в 

операторах GO ТО и GO SUB; 

* допускаются все варианты применения функции USR для вы- 
зова внешних процедур в машинных кодах, кроме 
GO ТО USR <anpec> и GO SUB USR <адрес>; 

¢ выражения, используемые в качестве параметров операторов 
PLOT, DRAW и CIRCLE должны быть заключены в круглые 
скобки; 

‚ не поддерживаются логические операции (NOT, АМО**, OR); 

оператор STOP рассматривается как ограничитель текста прог- 

раммы, и весь последующий текст игнорируется; 

¢ не поддерживаются операторы SAVE, LOAD, CONTINUE, LIST, NEW, 

а также CLEAR с параметром; 

операторы READ и DATA работают, как в стандартном Бейсике, 

однако RESTORE не может употребляться без параметра; 

. в параметрах ВЕЕР можно использовать натуральные дроби. 


После загрузки компилятора КАМТОР устанавливается на адрес 
39999. В процессе работы значение КАМТОР можно изменять опе- 
ратором CLEAR ‹новое значение». Скомпилированная программа 
размещается с адреса КАМТОР+1. 

Компиляция запускается оператором RANDOMIZE USR 60000 и осу- 
ществляется в два прохода. Дополнительным удобством является то, 
что по окоичании работы компилятор выводит на экран инфор- 
мацию о длине скомпилированного кода. 


Фирма Threlfall & Hodgson, 1983 г. Файлы: MCODER2 (тип BASIC, длина 870 байт) 
и MCODER2 (тип CODE, длина 5375 байт, адрес загрузки 59990). 


*х gas . 
Может использоваться только в качестве условия в сператоре iF... TREN, 
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Скомпилированная программа запускается оператором 
RANDOMIZE USR (RAMTOP+1) 


MCoder 2 позволяет ускорить работу программ обычно в 60...90 
раз, что несколько превосходит показатели ZX-Compiler v.1.0. Луч- 
шие результаты получаются при использовании в программе толь- 
ко арифметических действий, без вывода графики. 


Softek IS 


Компилятор Softek 15* по сравнению с ZX-Compiler He только 
накладывает на текст исходной бейсик-программы меньше ог- 
раничений, но и добавляет несколько новых инструкций, отсутст- 
вующих в 5ресиит-Бейсике. Кроме того, он значительно уве- 
личивает скорость выполнения скомпилированной программы. 
Тест-программа: 


10 LET C=0 

20 FOR A=0 TO 175 
30 FOR B=0 TO 255 
40 LET C=C+1 

50 NEXT B: NEXT A 


после обработки компилятором Softek IS ускоряет свою работу 
более чем в 95 раз. Правда, за это пришлось заплатить почти 
двукратным (по сравнению с ZX-Compiler v.1.0) увеличением 
объема самого компилятора, который составил 6 килобайт. 


Процедура запуска Softek IS выполнена несколько иначе, чем 
ZX-Compiler. После окончания загрузки компилятор запрашивает 
адрес, по которому требуется разместить скомпилированную про- 
грамму: 


RAMTOP at 40000? (Y ог М) 


После утверлительного ответа значение системной переменной 
КАМТОР устанавливается равным 40000, выполняется оператор 
NEW и управление передается интерпретатору Бейсика. При отри- 
цательном ответе программа запрашивает новое значение 
RAMTOP, ввод которого завершается клавишей Enter. Значение 
КАМТОР, ' а следовательно, и адрес размещения скомпилирован- 
ной программы можно изменить в процессе работы оператором 
CLEAR (более подробно об этом см. стр. 106). 


Ввод программы, предназначенной для компиляции, ее 
редактирование и отладка ничем не отличаются от обычной рабо- 
ты в зрескат-Бейсике. 


Запускается компиляция оператором 
RANDOMIZE USR 59300 


Автор Martin Lewis, фирма Softek, 1983 г. Файлы: SOFTEK IS (тип BASIC, длина 620 
байт) 4H COMET (CODE, длина 6000 байт, адрес загрузки 59300). 
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В процессе компиляции на экране отображаются: адреса начала 
и конца размещения скомпилированной программы, адрес окон- 
чания области переменных скомпилированной программы и — в 
специальном окне — сообщения компилятора. 

Компиляция осуществляется в два прохода, сопровождающихся, 
соответственно, сообщениями: 


FIRST PASS 
SECOND PASS 


После успешного завершения компиляции на экран выдается 
привычное 


0 OK 


и текст 
NO ERRORS 


В случае обнаружения недопустимой для Softek IS конструкции 
комциляция прерывается с сообщением ERROR и на экран вы- 
водится участок программы, непосредственно предшествующий 
ошибке. Место сбоя отмечается мигающим знаком $. Как и в ZX- 
Compiler, программный курсор автоматически устанавливается на 
«дефектную» строку программы. 


Ограничения в использовании операторов и функций 
зреснит-Бейсика частично совпадают с ограничениями, наклады- 
ваемыми ZX-Compiler (но есть и отличия): 


. не поддерживается работа с массивами; 

* допустимы все формы обращения к внешним подпрограммам 

в машинных кодах, кроме GO ТО USR ‹адрес> и СО SUB USR <ад- 

pec>; 

все ограничения, касающиеся использования функций при 

работе с ZX-Compiler, справедливы и для Softek IS: не пол- 

держиваются математические функции SIN, COS, TAN, ASN, ACS, 

АТМ, Pi, LN, EXP и, в отличие OT ZX-Compiler, SQR, a также VAL, 

VAL$, LINE и функции, определяемые пользователем; 

¢ допустимы операции с символьными переменными, в связи с 

чем возможно использование функций STR$, LEN и $СКЕЕМ$, а 

также INKEY$; 

не поддерживаются операторы MERGE, CONTINUE, LIST, NEW; 

использование SAVE, LOAD, VERIFY допустимо только при опе- 

рациях с файлами типа СОПЕ; 

оператор CLEAR может быть использован в программе только 

без параметра; 

¢ выражения, используемые в качестве параметров операторов, 
не обязательно заключать в скобки; 

. допустимы логические операции NOT, AND, OR, однако много- 

уровневое их вложение может привести к ошибке; 

операторы READ и DATA выполняются, но требуют наличия в 

программе хотя бы одного оператора RESTORE (с аргументом 

или без него), предшествующего первому оператору READ. 


Дополнительные операторы, распознаваемые Softek IS, но от- 
сутствующие в 5реснат-Бейсике, вводятся в текст исходной прог- 
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раммы BCAeA за оператором REM. Они составляются из прописной 
буквы (идентификатора оператора) и списка параметров. 
ВЕМ В 


останавливает работу скомпилированной программы, если в MO- 
мент его выполнения нажата клавишга Break (CS/Space). 


REM $5, A, x, у 
выводит символ на экран с точностью до пикселя. Параметры: A — 
код символа, x (0...175) иу (0...255) — расстояния в пикселях OT 


левого нижнего угла основного экрана. При выходе за пределы 

экрана печать продолжается с его противоположной стороны. Все 

параметры могут быть переменными или выражениями. 
Приведем пример вывода на эк- - 

ран символьной переменной: 


10 LET B=80 
20 LET W$="Softek IS v1.2” 
30 FOR A=1 TO 14 





40 LET B=B+1 

50 REM $, CODE W$(A), A*7, В 

60 NEXT A ne 

sorTer 7S 
Естественно, увидеть что-нибудь aap wa Se 

на экране можно будет только 
после компиляции этой программы Рис. 6. Пример работы 
(см. рис. 6): интерпретатор вос- оператора REM 5. 


примет REM $ как REM и только. 

Оператор REM $ может быть очень полезен при использовании 
набора узких символов (например, 4х8 пикселей}. Тогда можно 
обеспечить вывод на экран более 32 символов в строке и без 
применения специального драйвера. 

REM 5 имеет одну интересную особенность — он способен вы- 
водить на экран не 96 символов (коды от 32 до 127), как это 
принято для операторов печати Зресиит-Бейсика, а 256. Ao- 
полнительные символы хранятся в обычном формате (по 8 байт на 
символ) в нескольких областях памяти, положение которых опреде- 
ляется, ИСХОДЯ из значений системных переменных 
CHARS (23606/07) и UDG (23675/76): 


* символы с кодами от 0 до 31, которым в стандарте ASCII 
соответствуют управляющие коды, считываются с адреса, хра- 
нящегося в CHARS, и занимают 256 байт; 

‚ символы с кодами от 32 AO 127 — с адреса (CHARS)+256 и 
занимают положенные им 768 байт AO адреса (CHARS)+1023 
включительно, как обычный символьный набор; 

* символы С кодами от 143 до 255, которым в системе 
ZX Spectrum соответствуют ключевые слова Бейсика, распола- 
гаются в памяти с адреса (UDG)-—8 по адрес (UDG)+895; 

. и, наконец, символы с кодами от 128 ло 142 (в обычных 
условиях — символы псевдографики) формируются из дан- 
ных, записанных в области памяти, начиная с адреса 
(UDG)+1920 по (UDG)+2039. 


113 


КОМПИЛЯТОРЫ, РАБОТАЮЩИЕ С ВЕЩЕСТВЕННЫМИ ЧИСЛАМИ 


Знание последней особенности дает возможность использовать в 
скомпилированных программах альтернативный символьный на- 
бор из 128 символов совместно с 128 символами UDG, один раз 
прибегнув к модификации системных переменных UDG и CHARS. 
Следует подчеркнуть, что эти особенности присущи только опера- 
тору REM $5, но не относятся к стандартным операторам вывода на 
экран (PRINT CHR$). 


REM М, А1, A2, ..., Ап 


включает в скомпилированную программу фрагмент в машинных 
кодах: Al, A2 ит. A. (целые числа от 0 до 255). Аля успешного 
возврата из процедуры в кодах она должна заканчиваться кодом 
201 (RET). Оператор КЕМ М позволяет писать наиболее критичные 
по времени выполнения фрагменты программы непосредственно 
в машинных кодах, что значительно расширяет сферу применения 
компилятора Softek IS. 


На этом обзор целочисленных компиляторов можно считать 
законченным. Теперь наступило время перейти к следующей теме, 
а именно к так называемым компиляторам «с плавающей точкой». 


КОМПИЛЯТОРЫ, 
РАБОТАЮЩИЕ С ВЕЩЕСТВЕННЫМИ ЧИСЛАМИ 





Softek FP 


Компилятор Softek FP* (Softek Floating Point), известный также 
под именем Full Compiler, разработан тем же автором, что и 
Softek IS, и внешне напоминает последний. По-видимому, изна- 
чально Softek IS и Softek ЕР составляли нечто вроде программного 
пакета, предназначенного для ускорения работы различных 
бейсик-программ. Причем там, где была необходима максимальная 
скорость, но не требовалось особо сложных математических вычис- 
лений, рекомендовалось использовать Softek IS, а в остальных слу- 
чаях мог быть использован Softek FP, работающий несколько MeA- 
леннее, зато позволяющий обрабатывать как целые, так и вещест- 
венные числа. 

Две версии этого компилятора — Full Compiler v.1.1 и 
FP48K v.1.7 — не слишком сильно отличаются друг от друга. 
Full Compiler у.1.1 состоит из бейсик-загрузчика и файла в ма- 
шинных кодах. FP48K v.1.7 состоит из трех файлов: загрузчика, 
фирменной заставки Softek ЕР и блока кодов собственно компиля- 
ropa. Версия 1.1 по окончании загрузки, как и Softek IS, запра- 


* Автор Martin Lewis, фирма Softek, 1983 г. Файлы версии 1.1: COMPILER (тип 
BASIC, длина 707 байт), MACHINE CODE (тип CODE, длина 6050 байт, адрес 
загрузки 59300). Файлы версии 1.7: ЕР48К v.1.7 (тип BASIC, длина 36 байт), 
< пустое имя> (тип CODE, длина 1000 байт, адрес загрузки 23500), m/CODE (тип 
CODE, длина 6100 байт, адрес загрузки 59300). 
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шивает значение КАМТОР, однако после его ввода не происходит 
очистки области Бейсика оператором NEW, поэтому перед началом 
работы необходимо сделать это вручную. Оригинальная версия 1.7 
устанавливает КАМТОР на адрес 39999 без запроса и выполняет 
оператор NEW автоматически (в дисковой версии 1.7 взод зна- 
чения КАМТОР и выполнение NEW необходимо сделать вручную). 

Значение КАМТОР всегда можно изменить оператором CLEAR <ад- 
pec>, где <agpec> — число, на единицу меньшее, чем требуемый 
адрес размещения скомпилированной ‘программы (подробнее 
смотрите в описании ZX-Compiler, стр. 106). 

Работа с исходными текстами на Бейсике ничем не отличается 
от обычной. Необходимо только помнить, что область памяти над 
ВАМТОР отводится под скомпилированную программу, а область с 
адреса 59300 по адрес 65350 для версии 1.1 или по 65400 для 
версии 1.7 занята самим компилятором, поэтому указанные об- 
ласти памяти нельзя использовать для других целей. 


Обе версии запускаются оператором 
RANDOMIZE USR 59300 


В процессе компиляции Ha экране отображаются: адреса начала 
и конца размещения скомпилированной программы, адрес окон- 
чания области переменных и в специальном окне — сообщения 
компилятора. Все выводимые компилятором сообщения соответст- 
вуют аналогичным сообщениям Softek IS. 


Далее о самом главном — об ограничениях, накладлываемых 
Softek ЕР на текст исходной бейсик-программы: 


. диапазон обрабатываемых компилятором чисел соответствует 
диапазону, в котором работает интерпретатор: от 2,8-10-39 ao 
1,7.1038, Точность представления чисел — до восьми значащих 
цифр, как и в интерпретаторе. При выходе абсолютной ве- 
личины числа за пределы указанного диапазона в сторону 
увеличения выдается сообщение Number foo big, в сторону 
уменышения — числовое значение принимается за нулевое. 
Применение функций VAL (в версии 1.1) и VAL$ (в обеих 
версиях) при компиляции не воспринимается как ошибка, но 
во время работы скомпилированной программы вызывает 
сбой, и выдается сообщение Nonsense т BASIC; 

не диагностируется как ошибка, но приводит к сбою и приме- 
нение оператора INPUT с ключевым словом LINE; 

не поддерживаются функции, определяемые пользователем 
(DEF FN и FN); 

все используемые массивы, как числовые, так и символьные, 
должны быть одномерными; 

не допустимы инструкции GOTO и СО SUB с нечисловыми 
параметрами (выражениями и переменными); 

не поддерживаются операторы MERGE, CONTINUE, LIST, NEW. 
Использование SAVE, LOAD, VERIFY допустимо в операциях с 
кодовыми файлами. Оператор STOP, встреченный в тексте 
программы, не воспринимается как ограничитель текста. $ТОР 
обязательно должен завершать текст бейсик-программы, если 
в ней хотя бы один раз использовался оператор CLEAR — в 
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противном случае по окончании работы скомпилированной 
программы произойдет сброс компьютера. Программа, оста- 
новленная оператором STOP, не может быть продолжена вводом 
CONTINUE; 

* все сказанное об использовании логических операций при 
работе с Softek IS справедливо и для Softek ЕР; 

. на применение операторов READ, DATA и RESTORE ограничений 
не накладывается. 


Softek FP так же, как его целочисленный «собрат» Softek IS, 
реализует некоторые дополнительные инструкции, не известные 
интерпретатору Бейсика. Операторы КЕМ В (опрос нажатия 
CS/Space) и КЕМ М (включение фрагмента в машинных кодах) 
работают так же, как и в Softek IS (см. стр. 113). Но, к величайше- 
му сожалению, один из самых интересных дополнительных опера- 
торов Softek IS — печать символов в произвольную точку экрана 
(РЕМ $) — наотрез отказывается работать в Softek FP. 

Softek ЕР дополняет 5реснит-Бейсик еще двумя новыми опера- 
торами: КЕМ Е и КЕМ О. 


” ВЕМ Е, п 


указывает компилятору на строку в тексте программы, где на- 
ходится подпрограмма обработки ошибок*. Находясь в произволь- 
ном месте программы, этот оператор обеспечивает при возникно- 
вении любой ошибки переход к строке с номером п. Естественно, 
что применение оператора КЕМ Е полностью исключает BO3MOX- 
ность останова программы при помощи оператора КЕМ В. Более 
того, запущенная на выполнение программа, включающая в себя 
строку КЕМ Е, п, не может быть остановлена обычными способами. 
Даже естественное окончание программы с выводом сообщения 
0 OK расценивается как ошибка и вызывает переход на строку, 
указанную в КЕМ Е. Это создает известные неудобства: по завер- 
шению программы невозможен возврат к работе в интерпретаторе 
Бейсика. Но, с другой стороны, это в какой-то степени защищает 
программу от несанкционированного доступа. 

AAS того чтобы обезопасить себя от возможных неприятностей, 
связанных с использованием КЕМ Е, лучше не включать этот опе- 
ратор при пробных запусках программы, а вписывать его в уже 
окончательно отлаженный текст. Перед запуском программы с опе- 
ратором КЕМ Е нужно не забыть сохранить ее исходный текст на 
внешнем носителе. В противном случае весь результат работы мо- 
жет быть потерян из-за невозможности вернуться в интерпретатор. 


REM О, q, п1, n2, ..., nn 


реализует оператор группового перехода. Bo многих версиях 
Бейсика в этом случае используется ключевое слово ОМ, в част- 
ности, в Beta Basic он записывается так: 


GO TO ON aint, па, ..., nn 


* _ OrmeTHM, что этот оператор работает только в Softek FP версии 1.1. 
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В зависимости от значения параметра а осуществляется переход 
по одному из номеров строк, указанных в списке ni, п2, ..., пп. При 
а=1 осуществляется переход к строке с номером ni, при q=2 — к 
строке с номером п2 ит. д. Если значение а меньше или равно 
нулю, либо превышает число элементов списка, либо имеет дроб- 
ное значение, то управление передается следующей за оператором 
REM О строке. Необходимо помнить, что а не может быть числом 
или выражением — только числовой переменной. 


Tobos FP 





Компилятор Tobos ЕР* (Tobos Floating Point) появился Ha свет в 
Польше в 1986 году и стал на сегодняшний день, пожалуй, наибо- 
лее популярным из всех известных бейсик-компиляторов для 
ZX Spectrum. Он удачно сочетает в себе относительно высокое 
быстродействие с максимальной совместимостью со Spectrum- 
Бейсиком. Tobos ЕР имеет ряд дополнительных возможностей, на- 
пример, позволяет выбирать различные режимы компиляции в 
зависимости от нужд программиста и параметров исходного текс- 
та. Tobos может компилировать довольно большие программы, 
наиболее эффективно используя при этом память ZX Spectrum. 

Компилятор состоит из бейсик-загрузчика (известно два ва- 
рианта) и блока кодов длиной 12268 байт, располагающегося с 
адреса 53100. RAMTOP изначально устанавливается на адрес 
39999, однако это значение может быть в любой момент измене- 
но с помощью CLEAR <адрес>. 

Компиляция запускается оператором 


RANDOMIZE USR 53100 


По завершении компиляции на экран выводится фирменная 
заставка Tobos FP и значения параметров, необходимых для запу- 
ска скомпилированной программы и ее записи на внешний 
носитель: адрес начала текста и его длина. 

Tobos ЕР избавляет программиста от необходимости постоянно 
набирать последовательность операторов для запуска компилятора 
и скомпилированной программы. Остроумный прием позволяет 
полностью автоматизировать этот процесе. Необходимо только, 
чтобы первая строка программы содержала слелующий текст: 


1 IF 1/2—0.5 THEN RANDOMIZE USR 53100: RANDOMIZE USR ADDR: 
STOP 


— rae ADDR — адрес начала скомпилированной программы. Тогда 
оператор RUN, введенный с клавиатуры, вызовет компиляцию и 
немедленный запуск скомпилированной программы. Секрет этого 
приема заключается в следующем: для интерпретатора Spectrum- 
Бейсика величины 1/2 и 0.5 — это не совсем одно и TO же, а Аля 


Авторы Jerzy Borkowski и Wojciech Skaba, 1986 г. Файлы первого варианта: TOBOS 
ЕР (тип BASIC, длина 258 байт), FLOATING POINT (тип CODE, длина 12268 байт, 
адрес загрузки 53100). Файлы второго варианта (заставка с бегущей строкой): 
TOBOS ЕР (тип BASIC, длина 2648 байт), файл без заголовка (тип CODE, длина 
12268 байт, адрес загрузки 53100). 
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компилятора эти два числа равны (о причинах — чуть позже). 
Поэтому при запуске программы средствами интерпретатора (RUN) 
значение выражения 1/2-0.5 не равно нулю, и выполняются 
операторы, следующие 3a THEN, то есть осуществляются компи- 
ляция программы и ее запуск. Вычисление выражения 1/2-0.5 в 
скомпилированной программе даст нулевой результат, и, следова- 
тельно, управление передастся следующей строке, минуя 
компиляцию. 

В процессе компиляции, как и во время выполнения програм- 
мы, могут появляться различные сообщения об ошибках. По смыс- 
лу они, в основном, соответствуют аналогичным сообщениям 
интерпретатора, однако некоторые из них имеют свои 
специфические особенности. Tak, сообщение Variable not found вы- 
дается на этапе компиляции, если в тексте программы обна- 
руживается обращение к необъявленной переменной или 
массиву. Однако при работе в среде Tobos ЕР может сложиться 
парадоксальная ситуация, когда первое обращение к переменной 
может предшествовать ее объявлению операторами LET, FOR, INPUT 
или READ. Поясним. Например, совершенно нелепый, с точки 
зрения интерпретатора, текст: 


10 РАМТ А 
20 PRINT В 
30 PRINT C 
40 LET A=A+1 
50 LET B=A+C 
60 LET C=A+B 


AAA компилятора является абсолютно нормальным. Связано это с 
тем, что при компиляции в памяти компьютера резервируется 
место для всех числовых переменных, хотя бы раз упомянутых в 
операторах LET, FOR, INPUT или READ, и присваивается этим пере- 
менным нулевое значение. Следовательно, результатом работы 
вышеприведенного примера будет вывод на экран трех нулей, так 
как печать переменных осуществляется до того, как им впервые 
присвоено значение. Однако если бы этот пример имел следу- 
ЮЩиИйЙ BHA: 


10 PRINT A 
20 PRINT B 
30 PRINT C 


— то Ha этапе компиляции возникла бы ошибочная ситуация, 
которая привела бы к выдаче сообщения Variable not found, так как 
переменные А, В и С в программе не объявлены вообще. Благодаря 
этому эффекту можно не заботиться о принудительном обнулении 
переменных перед началом работы скомпилированной программы 
— Tobos ЕР сделает это сам. 

Сообщение RAMTOP no good может появиться при компиляции 
больших по сбъему исходных текстов в результате нехватки места 
для стека компьютера (между КАМТОР и областью бейсик-прог- 
раммы). В этом случае рекомендуется поднять ВАМТОР 
приблизительно на 100 байт. 
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Сообщение Nonsense in BASIC может появиться при использо- 
вании не допустимых в среде Tobos ЕР операторов, таких как SAVE, 
LOAD, CONTINUE, а также CLEAR с параметром. Эти операторы отно- 
сятся к числу тех немногих ограничений, которые Tobos ЕР все же 
накладывает на исходный текст программы. 

Необходимо отметить, что Tobos ЕР не пользуется подпрограм- 
мами калькулятора ZX Spectrum, а имеет свой собственный, с 
другим форматом хранения чисел. Этот калькулятор производит 
вычисления с точностью до 7 значащих цифр, а не до 8, как это 
делает интерпретатор. Именно поэтому для Tobos ЕР величина 1/2 
в точности равна 0,5. С наличием собственного калькулятора 
связано существенное увеличение объема Tobos ЕР по сравнению 
с компиляторами Softek. 

Сообщение Out of memory возникает всякий раз, когда ком- 
пилятору не хватает памяти для размещения скомпилированной 
программы. Эту ситуацию следует отличать от случая, когда ана- 
логичное сообщение возникает до компиляции и означает, что 
компьютеру не хватает места для размещения текста исходной 
бейсик-программы. Для компиляции больших программ (объемом 
до 27 килобайт) существует ряд специальных приемов, которые 
будут подробно рассмотрены дальше. 

Все сообщения об ошибках, выводимые не только в процессе 
компиляции, но и при выполнении скомпилированной програм- 
мы, содержат указание на номер строки исходного текста, в кото- 
рой возникла ошибочная ситуация. Это во многом облегчает поиск 
ошибок. 


Компилятор Tobos ЕР представляет собой достаточно гибкое 
программное средство, позволяющее выбирать различные режимы 
компиляции в зависимости от условий. Стандартный режим 
компиляции, задаваемый по умолчанию, более всего удобен для 
предварительной отладки небольших (ло 13 килобайт) программ. 
Для готовых отлаженных программ удобно применять режим тран- 
сляции с сокращенным форматом вывода сообщений об ошибках 
(без указания номера ошибочной строки в исходном тексте). Это 
позволяет несколько сократить объем скомпилированной програм- 
мы и ускорить ее работу. Режим включается оператором 
РОКЕ 53252,0, а выключается — РОКЕ 53252,55. 

Для обработки больших программ может оказаться полезным 
режим компиляции с уничтожением исходного текста и разме- 
щением на его месте кодов скомпилированной программы. Вклю- 
чается режим оператором POKE 53240,0 а выключается — 
РОКЕ 53240,55. *^ 

Кроме того, при компиляции очень болыших программ может 
помочь справиться с неизбежными проблемами рациональное рас- 
пределение памяти компьютера. AAA того чтобы оптимально 
использовать память, необходимо знать несколько собственных 
системных переменных Tobos ЕР. 

Ячейки 58112/13 содержат адрес размещения скомпилирован- 
ной программы для режима компиляции без уничтожения исход- 
ного текста программы. Если обе ячейки содержат нули, то код 
размещается традиционно по адресу КАМТОР+1, если же нет, то 
по адресу PEEK 58112+256*PEEK 58113. 
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Несложная программа на Бейсике рассчитывает по заданному 
адресу значения параметров операторов POKE и заносит их в 
системную переменную: 


10 INPUT "ADDR", ADDR: REM Ввод адреса начала скомпилирован- 
ной программы 

20 RANDOMIZE ADDR: КЕМ Преобразование двухбайтового числа 
в два однобайтовых 

30 РОКЕ 58112, РЕЕК 23670 

40 РОКЕ 58113, РЕЕК 23671: КЕМ Помещение полученных значений 
в системные переменные Tobos ЕР 

50 РОКЕ 53240,55: КЕМ Компиляция без уничтожения текста 


Ячейки 55631/32 содержат адрес размещения скомпилирован- 
ной программы для режима трансляции с уничтожением исходного 
текста. Изначально эти ячейки содержат адрес 24000 для магнито- 
фонной версии компилятора и 24100 для его дисковой версии. 

Программа, автоматически помещающая требуемые значения в 
эту системную переменную, может выглядеть так: 


10 INPUT “ADDR”, ADDR 

20 RANDOMIZE ADDR 

30 POKE 55631, PEEK 23670 

40 POKE 55632, PEEK 23671 

50 РОКЕ 53240, 0: REM Компиляция с уничтожением текста 


Основные приемы компилирования больших программ сводят- 
ся, главным образом, к умелому манипулированию значениями 
КАМТОР и вышеперечисленных переменных. Можно порекомен- 
довать такую последовательность работы: 


1. установить КАМТОР равным 53099, освободив максимум 
пространства для исходного текста программы; 

2. выбрать режим компиляции с уничтожением исходного текста 
программы оператором РОКЕ 53240,0 и режим сокращенных 
сообщений об ошибках оператором РОКЕ 53252,0; 

3. запустить компиляцию оператором RANDOMIZE USR 53100 или 
при помощи запускающей строки и оператора RUN; 

4. по окончании компиляции переместить КАМТОР на 1 байт 
ниже начала скомпилированной программы, выполнив 
CLEAR АООК-1, и запустить последнюю на выполнение опера- 
тором RANDOMIZE USR ADDR. 


Способы записи скомпилированной программы Ha внешний 
носитель подробно описаны в следующем разделе. 


ЗАПИСЬ СКОМПИЛИРОВАННЫХ ПРОГРАММ 


Полученный в результате компиляции код не является закон- 
ченным программным продуктом, так как для его работы необ- 
ходимо присутствие в памяти компьютера самого бейсик-компиля- 
тора. 
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Существует несколько способов записи на внешний носитель 
скомпилированной программы в формате, пригодном для ее само- 
стоятельного применения. Суть этих способов сводится к напи- 
санию по OKOHYAHHH Компиляции специальной программы-за- 
грузчика на Бейсике, которая автоматически загружает в память 
компилятор, скомпилированную программу и запускает ее на вы- 
полнение. Нередко программа-загрузчик содержит в себе так на- 
зываемый «самоспасатель», позволяющий после окончания ком- 
пиляции одним оператором RUN создать на ленте или на диске все 
необходимые файлы, составляющие законченный программный 
продукт. 

Рассмотрим несколько методов создания из скомпилированного 
полуфабриката законченного программного продукта. 


Метод первый 


Суть метода — создание на ленте или диске трех файлов: за- 
грузчика на Бейсике, файла в машинных кодах, содержащего 
пакет рабочих процедур компилятора, и файла скомпилированной 
программы (Табл. 3). 


Таблица 3. Распределение памяти при работе с компиляторами. 


P_RAMT (23732)* : 
Символы, определяемые пользователем 
UDG (23675) 
Свободная область 
ADDRCOMP+LENCOMP 
Область, занятая компилятором 
ADDRCOMP 
Рабочая область компилятора 
ADDRCOMP—WSPACE 
Свободная область 
ENDVARS 
Область переменных скомпилированной 
программы 
ENDPROG 
Скомпилированная программа 
RAMTOP (23730) 


Е_ LINE (23641) 
Переменные Бейсика 
VARS (23627) 
Бейсик-программа 
РКОС (23635) 


* > 
В скобках приведены адреса системных переменных, в которых записаны зна- 


чения адресов соответствующих границ областей памяти. 
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AAA осуществления замысла необходимо произвести следующие 
действия: 


1 


3. 
. освободить область Бейсика от исходной программы, выпол- 


. загрузить компилятор; 
2. 


набрать или загрузить с внешнего носителя исходный текст 
программы на Бейсике; 


произвести компиляцию, 


нив оператор NEW; 


. написать загрузчик на Бейсике по слелующей схеме (AAA 


работы с диском здесь и далее изменения обычные}: 

10 CLEAR ADDR—1: КЕМ Установка КАМТОР 

20 LOAD "COMPILER" CODE: КЕМ Загрузка компилятора 

30 ГОАО "МАМЕ” СОПЕ: КЕМ Загрузка скомпилированной прог- 
раммы 

40 RANDOMIZE USR ADDR: REM Запуск скомпилированной прог- 
раммы 


. записать файлы на внешний носитель строкой операторов: 


SAVE "NAME" LINE 10 : SAVE “COMPILER” CODE ADDRCOMP, 
LENCOMP : SAVE "NAME" CODE ADDR, ENDVARS—ADDR 


— rae ADDRCOMP — адрес загрузки компилятора (он He всегла 
совпадает с адресом его запуска), LENCOMP — длина компиля- 
тора, ADDR — адрес начала скомпилированной программы 
(указывается самим компилятором и равен практически всег- 
да КАМТОР-1), ENDVARS — адрес окончания области перемен- 
ных скомпилированной программы (также выводится самим 
компилятором). Значения ADDRCOMP и LENCOMP для 
различных компиляторов сведены в Табл. 4. Некоторые 
компиляторы, например, MCoder 2 или Tobos ЕР вместо адре- 
са окончания скомпилированкой программы выводят ee 
длину, в таком случае это значение прямо подставляется в 
оператор SAVE вместо выражения ENDVARS—ADDR. 


Таблица 4. Параметры компиляторов, необходимые для записи 


готового программного продукта. 


омпилятоВ: 


ZicCompier 10] 5 | 0 | 5% 
Softek IS 
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Приверженцам хорошего стиля, а также тем, кто не любит 
набирать длинные последовательности операторов на клавиатуре, 
рекомендуем поручить весь процесс записи программного продук- 
та на внешний носитель самому компьютеру. Для этого рекоменду- 
ем такую программу: 


10 SAVE "МАМЕ” LINE 50: REM Начало «самоспасателя» 
20 SAVE “COMPILER” CODE ADDRCOMP, LENCOMP 

30 SAVE “NAME” CODE ADDR, ENDVARS—ADDR 

40 STOP: REM Окончание «самоспасателя» 

50 CLEAR ADDR-—1 

60 LOAD "COMPILER” CODE 

70 LOAD "МАМЕ" CODE 

80 RANDOMIZE USR ADDR 


После набора этого варианта загрузчика достаточно просто дать 
команду КОМ, и готовый программный продукт в виде трех файлов 
будет автоматически записан на внешний носитель. Теперь для 
запуска программы достаточно набрать LOAD "МАМЕ". 

Этот вариант при всех своих достоинствах, а именно простоте 
расчета адресов и минимальной суммарной длине файлов, не 
всегла удобен. Особенно это относится к компиляции больших 
программ. Действительно, когда верхняя граница области пере- 
менных скомпилированной‘ программы подходит близко к нижней 
границе компилятора, есть смысл записать все это в виде одного 
файла, охватывающего область памяти OT ADDR AO 
ADDRCOMP+LENCOMP (см. табл. 4). Для таких случаев, главным 
образом, и предназначается следующий метод. 


Метод второй 


Он чрезвычайно прост, однако его применение сопряжено с 
несколько большим расходом памяти. На внешнем носителе 
формируются два файла: загрузчик на Бейсике и кодовый файл. 
Последний содержит скомпилированную программу, компилятор 
и некоторое количество неиспользованной памяти, находящейся 
между последним байтом скомпилированной программы и первым 
байтом области компилятора. Справедливости ради следует ска- 
зать, что эту область памяти нельзя считать полностью неиспользу- 
емой, так как именно в ней располагается стек компилятора, но об 
этом чуть позже. 

Для записи программного продукта этим методом необходимо 
составить следующий загрузчик на Бейсике: 


10 CLEAR ADDR—1: КЕМ Установка RAMTOP на адрес, на единицу 
меньший, чем начало скомпилированной прсграммы 

20 LOAD "МАМЕ" CODE: REM Загрузка скомпилированной прог- 
раммы 

30 RANDOMIZE USR ADDR: КЕМ Запуск программы 
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Затем нужно выполнить строку операторов: 
SAVE "НАМЕ” LINE 10: SAVE "NAME" CODE ADDR, LENGTH 


— rae ADDR — адрес начала скомпилированной программы, 
LENGTH — длина всего блока в кодах, рассчитываемая по формуле: 


LENGTH = ADDRCOMP + LENCOMP — ADDR 


— rae ADDRCOMP — адрес начала компилятора, a LENCOMP — ero 
длина в байтах (см. табл. 4). AAA простоты можно считать, что 
ADDRCOMP+LENCOMP=6 5535. Это позволит сохранить вместе с про- 
граммой область определяемых пользователем символов, если, ко- 
нечно, в этом есть необходимость. Естественно, что все операции 
по записи программы целесообразно, как и в первом варианте, 
поручить компьютеру. В этом случае программа-загрузчик будет 
иметь вид: 


10 SAVE "NAME" LINE 40: REM Начало «самоспасателя» 
20 SAVE "МАМЕ" CODE ADDR, LENGTH 

30 STOP: REM Окончание «самоспасателя» 

40 CLEAR ADDR—-1 

50 LOAD "МАМЕ" CODE 

60 RANDOMIZE USR ADDR 


И, наконец, AAA Tex, кто, не считаясь с затратами времени, 
пожелает соединить преимущества двух описанных методов в 
одном, будет полезен третий метод. 


Метод третий 


Этот метод является наиболее трудоемким, но и самым эф- 
фективным. Его рекомендуется применять при создании закончен- 
ного коммерческого продукта, так как именно этот способ удачно 
сочетает в себе как минимальное число файлов (два), так и наибо- 
лее эффективное использование места на магнитной ленте и объе- 
ма памяти при работе программы. Основная идея этого метода 
заключается в размещении скомпилированной программы почти 
«впритык» к компилятору. 

Метод требует специальной подготовки еще на этапе ком- 
пиляции, поэтому приводим здесь подробный его алгоритм: 


1. загрузить компилятор; 

2. ввести исходный текст программы и запустить пробную 
компиляцию. По. окончании запомнить стартовый адрес 
скомпилированной программы (ADDR) и адрес окончания 
области переменных (ENDVARS); 

3. установить КАМТОР оператором 
CLEAR ADDRCOMP—(ENDVARS—ADDR)—WSPACE—1 
— rae ADDRCOMP — адрес начала компилятора (см. табл. 4), 
ENDVARS и ADDR — соответственно, окончание и начало 
скомпилированной программы, запоминаемое после пробной 
компиляции, WSPACE — размер рабочего пространства (обыч- 
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но от 130 ao 200 байт), резервируемого на нужды самого 
компилятора; 

4. скомпилировать программу еще раз по новому адресу, после 
чего сохранить на внешнем носителе блок машинных кодов, 
выполнив оператор: 


SAVE "МАМЕ" CODE ADDR, ADDRCOMP+LENCOMP—ADDR 


— rae ADDRCOMP и LENCOMP — как и прежде, начальный адрес 
и длина компилятора (см. табл. 4). 


Бейсик-загрузчик АЛЯ считывания и автоматического запуска 
скомпилированных программ в этом случае будет выглядеть так: 


10 CLEAR ADDR—1 
20 LOAD "NAME" CODE 
30 RANDOMIZE USR ADDR 


Несмотря на свою эффективность, третий метод сохранения 
скомпилированных программ не исключает целесообразности 
применения остальных, которые наиболее удобны при необхо- 
димости экономии машинного времени, главным образом, на эта- 
пе разработки программного продукта. 

Кроме того, при работе с дисководом первый метод (с раздель- 
ным сохранением компилятора и скомпилированной программы) 
позволяет экономить место на диске за счет сохранения единствен- 
ного файла с пакетом рабочих процедур компилятора и нескольких 
файлов с результатами компиляции различных программ, запу- 
скаемых разными загрузчиками. 


При необходимости можно обеспечить сохранение в одном 
файле нескольких программ, скомпилированных в разные адреса. 
В этом случае все скомпилированные программы записываются 
на внешний носитель в виде одного файла вместе с компилятором 
и после загрузки запускаются по разным адресам. Адреса нужно 
выбрать таким образом, чтобы скомпилированные программы раз- 
мещались впритирку друг к другу: это позволяет минимизировать 
размер файла*. Для большего удобства и во избежание разру- 
шения уже скомпилированных программ — рекомендуется 
транслировать фрагменты, располагая их в памяти «сверху вниз». 
Для начала необходимо установить КАМТОР на максимально вы- 
сокий адрес, позволяющий разместить над ним первый фрагмент 
и рабочую область компилятора. После этого следует ском- 
пилировать первую программу, затем опустить КАМТОР на ве- 
личину, необходимую для размещения следующей программы, и 
так до тех пор, пока не будут скомпилированы последовательно все 
программы. Затем остается лишь записать всю область памяти от 
RAMTOP ao окончания компилятора на внешний носитель в виде 
единого блока кодов. Вызывающая программа пишется на Бейсике 
и также компилируется. Она содержит обращения к программам 
по адресам их начала. КАМТОР при загрузке устанавливается, как 
обычно, на адрес, на единицу меньший, чем адрес начала блока 
KOAOB. 


При осуществлении этого варианта предварительно может потребоваться отдель- 
ная компиляция программ с целью определения размера каждой из них. 
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Таким образом, появляется реальная возможность организации 
процесса программирования путем разделения глобальной задачи 
на несколько независимых модулей. Кроме того, можно создавать 
наборы предварительно скомпилированных системных библиотек, 
пригодных для использования в различных программах. Пробле- 
мой остается лишь способ обмена данными между отдельно ском- 
пилированными модулями. Вследствие того, что для каждого прог- 
раммного фрагмента при компиляции формируется своя область 
переменных, для передачи значений переменных от одного фраг- 
мента к другому требуются специальные приемы. Практически это 
можно осуществить, например, путем побайтового обмена дан- 
ными с помощью операторов РОКЕ и РЕЕК через специально отве- 
денную область памяти. 


Внешние процедуры в машинных кодах и таблицы пользователя 
(альтернативные символьные наборы и т. п.) могут располагаться 
в любом свободном месте памяти. Их можно оформлять как в виде 
отдельных файлов, так и присоединять к скомпилированной прог- 
рамме или самому компилятору. Впрочем, возможности человече- 
ской фантазии поистине безграничны, поэтому предоставим чита- 
телю право самому придумать другие варианты использования 
богатейших возможностей, предоставляемых компиляторами 
эресиит-Бейсика. 


ПРИЛОЖЕНИЯ 





1. Совместимость компиляторов и интерпретатора Бейсика 


В предлагаемой таблице (табл. 5) представлены ограничения, 
налагаемые рассматриваемыми компиляторами на синтаксис опе- 
раторов и функций Бейсика. Недопустимые инструкции отмечены 
знаком минус (-). Если инструкция допустима, но ее употребление 
имеет особенности по сравнению с интерпретатором, она отмечена 
цифрой, означающей номер примечания. 


Таблица 5. Ограничения синтаксиса при использовании компиляторов. 
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FOR...TO...STEP 


GO SUB 


CONTINUE 


COPY 
DIM А$() 
DRAW 


FLASH 
IF... THEN 


INPUT A 





BORDER 
BRIGHT 
CLEAR 
CLOSE # 
CLS 
DATA 
DEF FN 
DIM A() 
GO TO 
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Комментарии к таблице: 





al 





. При использовании целочисленных компиляторов любые 
дробные параметры в тексте программы диагностируются как 
ошибка и вызывают остановку компиляции. 

‚ В среде ZX-Compiler v.1.0 не поддерживаются символьные 
переменныс. 


5 Зак. № 192 © 129 
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‚ Аргументы функций и параметры операторов в среде 
ZX Compiler v.1.0, представляющие собой выражения, долж- 


НЫ 


заключаться в круглые скобки. Аля МСо4ег 2 это огра- 


ничение распространяется только на операторы PLOT, DRAW и 
CIRCLE. 
¢ Цифры в таблице обозначают: 


© ON me ON = 


— pe 


15. 
LG. 


РУ. 


18. 


функция поддерживается только в контексте CODE INKEY$; 
избыточный оператор; 

функция возвращает целочисленный результат; 

дробная часть отбрасывается; 


результат возвращается в виде числа со знаком в допол- 
нительном коде (см. стр. 109); 


инструкция компилируется, но приводит к сбою при вы- 
полнении программы; 


компилируется, но работает неправильно; 
допускается только без параметров! 
массивы могут быть только одномерными, 


. инструкция STEP не поддерживается; 
.В качестве параметров нельзя использовать выражения и 


переменные, 


. BBIBOAHTCH листинг программы, находящейся в области 


Бейсика, а не скомпилированной программы; 


. операторы работают только с файлами типа CODE; 
. может использоваться также для ввода операторов, расши- 


ряющих стандартный Бейсик; 
допускается только с параметром; 


воспринимается как ограничитель текста программы (ана- 
логично END в ряде других языков высокого уровня}; 


может использоваться только в качестве условия в операто- 
pe IF...THEN; 


в параметрах могут использоваться натуральные дроби. 


2. Сравнительные характеристики компиляторов 


В табл. 6 сведены данные о повышении скорости работы тест- 
программ, оттранслированных различными компиляторами, по 
сравнению со скоростью их выполнения интерпретатором Бейсика, 
а также размеры скомпилированных программ. Для проверки 
использовались 3 тест-программы: 1-я и 2-я целочисленные (экран- 
ная графика и целочисленная арифметика), а 3-я использует алгеб- 
раические операции с «плавающей точкой». 


Тест 1 Тест 2 
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10 РОК А=0 ТО 175 
20 FOR B=0 TO 255 


10 FOR A=1 TO 256 
20 FOR B=1 TO 256 


30 PLOT B,A | 30 LET C=(A*B)—(A+B) 
40 NEXT B: NEXT A 40 NEXT B: NEXT A 


ee ee er РУЗ ЧНИИ 


ee a ae es / ee ae 


I eee 
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Тест 3 


10 FOR А=0 TO 255 

20 LET B=ABS (ACS (RND))+ASN (RND)—ATN (РМО) 
30 LET B=ATTR (A,B)+BIN 10011110/CODE "а" 

40 LET A$=CHR$ A 

50 LET B=COS PI: LET B=SIN PI 

60 LET B=TAN Р!--ЕХР Pl: LET B=IN (31)—CODE INKEY$ 
70 LET B=INT (2/3): LET B=LEN A$ 

80 LET B=LN PI+PEEK 23681—POINT (128,88) 

90 LET A$=SCREEN$ (10,10) 

100 LET B=SGN (RND)+SIN (RND)*SQR (ABS (RND))/TAN (RND) 
110 LET A$=STR$ 12345 

120 LET B=USR 7962+USR "а" 

130 NEXT A 
140 BEEP 0.1,0.1 


Таблица 6. Сравнение эффективности компиляторов. 


Длина программы с переменными (без учета компилятора], байт 


Tots ИСИ СИС 
кр реа 


* Режим 1 компиляции Tobos ЕР включается oe POKE 53252,0; 
режим 2 —РОКЕ 53252,55 (подробнее см. стр 
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PRO-DOS 


Система PRO-DOS v.1.1* расширяет возможности интерпрета- 


тора Зреснат-Бейсика, добавляя к стандартному списку операто- 


ров три десятка новых инструкций. 
Перечислим основные «специальности» операторов PRO-DOS: 


. вывод на экран графических объектов (треугольников, 
эллипсов, прямоугольников и т. д.); 

. заливка контуров текстурой; 

* выполнение операций с окнами; 

‚ изменение размеров шрифтов; 

работа с теневым экраном. 


Как видно, возможности PRO-DOS достаточно велики, особен- 
но, если учесть, что в памяти компьютера он занимает всего 3787 
байт (наименьший объем по сравнению с другими расширениями 
Зреснат-Бейсика, описанными в этой книге). Между кодами РКО- 
DOS и началом области символов, определяемых пользователем, 
существует зазор около 1,5 килобайт памяти (см. Приложение 2). 
Этот зазор недоступен бейсик-программам, но может быть исполь- 
зован для размещения программ в машинных кодах. 

Отметим также, что PRO-DOS, в отличие, скажем, от МедаВаз1с 
и Beta Basic, не конфликтует с дисковой операционной системой 
TR-DOS: в программы можно смело включать инструкции обра- 
щения к дисководу. | 


Системный файл PRO-DOS имеет хождение вместе с демонст- 
рационной программой, выполняющей по совместительству и 
функции загрузчика. Наличие виртуозно написанной демонст- 
рационной программы, показывающей практически все возмож- 
ности системы, избавляет нас от славословий в адрес PRO-DOS. 


По нашему мнению, система PRO-DOS может быть очень полез- 
на при составлении различных тестирующих и демонстрационных 


ai Автор Hans-Joachim Berndt, 1985 г. Файлы: PRODOSDEMO (тип BASIC, длина 7811 
байт), PRO-DOS1.1 (тип CODE, длина 3787 байт, адрес загрузки 60000). 
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программ для образования, науки и бизнеса; Благодаря ее про- 
стоте работать с ней смогут даже начинающие программисты, тем 
более (мы надеемся) после прочтения этого описания. А для быст- 
рейшего освоения приемов программирования в среде PRO-DOS 
рекоменлуем впоследствии шаг за шагом изучить работу демонст- 
рационной программы. 


ЗАГРУЗКА И ЗАПУСК 





Перед началом экспериментов (или работы) с PRO-DOS вве- 
дите с клавиатуры строку 


CLEAR 59999: LOAD "" CODE 


и, «промотав» на ленте бейсик-файл демонстрационной програм- 
мы, загрузите системный файл. Если демонстрационная програм- 
ма уже загружена, очистите память с помощью оператора станлар- 
тного Бейсика МЕ\/*. После этого необходимо выполнить следую- 
щую программку: 


10 RANDOMIZE USR 60000 
20 OPEN #2, "Р" 


Вообще, каждая программа, работающая с PRO-DOS, должна 
начинаться с этих строк. Строка 10 понятна: она запускает 
(инициализирует) PRO-DOS. А вот строка 20, связывающая канал 
"Р" с потоком номер 2, может вызвать некоторое недоумение, 
поэтому кратко поясним ее назначение. Вывод информации на 
экран в стандартном Spectrum-beHcuke идет через канал "К"**. 
Однако через этот канал невозможно реализовать многие допол- 
нительные возможности по выводу на экран, которые предоставля- 
ет система PRO-DOS. По каким-то соображениям автор PRO-DOS 
не стал задавать новый канал, а молифицировал канал "Р" — 
единственный из стандартных каналов, поддающийся 
модификации***. Поэтому тверло усвоим, что программы, работа- 
ющие с PRO-DOS, обязательно должны содержать строку 20. При 
се отсутствии будут утрачены наиболее ценные возможности PRO- 
DOS: доступность нижней части экрана для вывода графики, воз- 
можность изменения размеров шрифтов и др. 

Во все имеющиеся в описании PRO-DOS примеры программ 
необходимо добавлять две приведенные строки с номерами 10 и 20 
(в целях упрощения записи они опущены). Для запуска примеров 
программ используйте команды RUN или GO ТО 10. 


* 
Обратите внимание, что демонстрационная программа производит 


мсдификацию некоторых символов, определяемых пользователем (UDG). 
Подробно о потоках и каналах смотритев [1]. 

При этом, естественно, возникли сложности с выводом на принтер, так как канал 
"Р" еще Клайвом Синклером предназначался именно для этих целей. Kak раз- 
решить проблему вывода на принтер из PRO-DOS, объяснено в Приложении 3. 
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Ключевые слова PRO-DOS вводятся по бук- 
вам. Для того чтобы компьютер не принял их 3a 
имена переменных, перед ними ставится пре- 
фикс — «звездочка» (*). Не надо пытаться «впи- 
хивать» звездочку перед ключевыми словами 
стандартного Бейсика, например, вводить *PLOT, 
сначала нажав клавипгу Q (PLOT), а затем звез- 
дочку — PRO-DOS этого не поймет. 


Операторы PRO-DOS можно вводить как про- 
писными, так и строчными буквами. Пробелы 
между ключевым словом и параметрами опера- 
тора необязательны*. Из всего сказанного следу- 
ет, что приведенные ниже инструкции PRO-DOS 
воспримет как идентичные: 


* WINDOW С, al, а(14), VAL A$ 
«window с, Al, Q(14), VAL a$ 


и лаже 
*winDoWc,al,q(14),VAL A$ 


В тексте для облегчения восприятия мы будем 
записывать операторы исключительно пропис- 
ными буквами и с пробелами. 


По написанию некоторые операторы РКО- 
DOS отличаются от операторов Spectrum-Ben- 
сика лишь наличием префикса-звездочки. Но 
это еще не свидетельствует об их функциональ- 
ной идентичности. Такие операторы могут быть 
и очень близки по смыслу (как *PLOT и PLOT), и 
иметь лишь некоторое сходство (*CLS и CLS), а 
также весьма отдаленно напоминать друг друга 
(*NEW и NEW) и, наконец, не иметь между собой 
ничего общего (*LINE и LINE). 


Иногда работа стандартных бейсиковских 
операторов (таких как PRINT, AT, TAB, а также 
операторов установки атрибутов) в PRO-DOS- 
программах несколько отличается от того, что мы 
привыкли от них ожидать. Такие случаи, по воз- 
можности, будут рассмотрены. 

Краткая справочная информация об операто- 
pax PRO-DOS приводится в Приложении 1. 


Но достаточно вступительных слов, теперь — 
за дело! 


Наличие пробелов улучшает читаемость текстов про- 
грамм, а отсутствие — экономит память. 
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ГРАФИЧЕСКИЕ ОПЕРАТОРЫ 


ГРАФИЧЕСКИЕ ОПЕРАТОРЫ 


*PLOT, *DRAW, *LINE, *BOX, *TRIANGLE, *ELLIPSE, *GPAT 





Стандартный Spectrum-beHcuk предоставляет в распоряжение 
пользователя три графических оператора: PLOT, DRAW и CIRCLE. 
Amaaekt PRO-DOS дополняет этот список еще семью. 


Операторы 


*PLOT x, у 
*DRAW x, у 


очень похожи на свои стандартные аналоги. Отличие заключается 
в том, что *PLOT и *DRAW доступна вся площаль экрана, включая 
две нижние символьные строки (служебный экран). Следователь- 
но, для этих операторов размеры экрана составляют не 256х176 
точек, как AAA операторов стандартного Бейсика, а 256х192. 
Нелишне будет заметить, что для функции стандартного Бейсика 
POINT (x, у) (см. стр. 88), информирующей о состоянии пикселя 
(включен-выключен}, служебный экран по-прежнему остается не- 
доступным. 

Поскольку начало отсчета координат привязано к нижнему лево- 
му углу экрана, то для графических операторов PRO-DOS оно сме- 
щается на 16 пикселей вниз. Следовательно, результаты выполне- 
ния операторов DRAW и PLOT, с одной стороны, и *DRAW и *PLOT, с 
другой стороны, при одинаковых параметрах не будут совпадать. В 
этом легко убедиться, выполнив следующую программу: 


30 PLOT 30,30: DRAW 70,70: КЕМ Стандартные операторы 
40 *PLOT 30,30: *DRAW 70,70: КЕМ Операторы PRO-DOS 
50 PAUSE 0 


AAA полноты картины следует еще добавить, что *DRAW, в OT- 
личие от DRAW, не умеет рисовать дуги и вообще не «переварива- 
ет» введение трех параметров. 


Человек, мало-мальски знакомый с иностранными языками, 
легко сообразит, что операторы *LINE, *BOX, *TRIANGLE, и *ELLIPSE 
строят на экране, соответственно, отрезок прямой, прямоугольник, 
треугольник и эллипс. Этим операторам также доступны все 24 
символьные строки экрана. Формат первых двух операторов 
одинаков: 


*LINE x1, У1, x2, y2 
*BOX x1, y1, x2, y2 


В первом операторе двумя парами значений задаются координа- 


ты концов отрезка, во втором — координаты расположенных по 


диагонали вершин прямоугольника. Так, программа 
30 LET x1=20: LET x2=120: LET yi=50: LET y2=150 
40 *LINE x1, y1, x2, y2 
50 *BOX x1, y1, x2, y2 
60 PAUSE 0 
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нарисует на экране прямоугольник и его диагональ. Отметим, что 
инструкции 


*LINE x1, У1, x2, y2 
и 
*LINE x2, y2, x1, у1 
эквивалентны. То же самое касается и различных вариантов за- 
писи оператора *ВОХ: 


*BOX x1, yl, x2, y2 

*BOX x2, y2, x1, y1 

*BOX x1, y2, x2, y1 
и 

*BOX x2, у1, x1, у2 


К сожалению, стороны прямоугольника, построенного операто- 
ром *BOX, всегда параллельны осям координат. 


Оператор *TRIANGLE требует 6 параметров: 
*TRIANGLE x1, y1, x2, y2, x3, y3 


В списке параметров фигурируют пары «абсцисса-ордината» 
трех вершин треугольника, причем порядок перечисления этих 
пар непринципиален. 

Если операторы *LINE, *ВОХ и *TRIANGLE являются по сути избы- 
точными (их действие легко смоделировать с помощью *PLOT и 
*DRAW), то оператор *ELLIPSE уникален: ничего похожего нет ни в 
стандартном 5ресиат-Бейсике, ни в каком-либо из известных его 
диалектов. Он строит эллипс, что сделать с помощью других опера- 
торов не так-то просто (хотя и возможно). Следом за ключевым сло- 
BOM *ELLIPSE указываются 4 параметра: 


*ELLIPSE x, у, a, b 


Первые два параметра (x, у) определяют координаты центра 
эллипса, вторые (а, b) — соответственно, горизонтальную и верти- 
кальную полуоси. И опять же, как и стороны прямоугольника, 
выводимого оператором *ВОХ, полуоси эллипсов всегда параллель- 
ны границам экрана. 

Окружность, как известно, является частным случаем эллипса. 
Для ее построения нужно задать одинаковые длины полуосей. 
Действительно, оператор 


*ELLIPSE x, у, г, г 


изобразит на экране окружность радиуса г с центром в точке с 
координатами (x, у). Такая альтернатива оператору CIRCLE может 
пригодиться при построении окружности в области служебного 
экрана. 


Для ценителей гармонии линий приведем пример программы, 
рисующей семейство концентрических эллипсов: 


30 LET x=128: LET у=96: КЕМ Центр эллипса 

40 РОК а=10 ТО 100 STEP 20: REM Горизонтальная полуось 
50 FOR b=10 TO 100 STEP 20: REM Вертикальная полуось 
60 *ELLIPSE x, у, а, b 

70 NEXT b: NEXT a: PAUSE 0 
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ГРАФИЧЕСКИЕ ОПЕРАТОРЫ 


Несколько замечаний, общих для всех графических операторов 
PRO-DOS. В отличие от стандартных, они не допускают использо- 
вания временных атрибутов. Так, компьютер откажется «глотать» 
конструкцию вроде 


*PLOT INK 5; 30, 40 


Более Toro, графические операторы совершенно равнодушны к 
постоянным атрибутам, установленным инструкциями INK, PAPER и 
другими (не в составе оператора PRINT). 


Цветную графику можно получить, лишь вставив в программу 
фиктивный оператор печати: ничего не печатающий, но уста- 
навливающий атрибуты, например: 


PRINT INK 5; OVER 1; BRIGHT 0 


Попробуйте модифицировать программу построения эллипсов, 
добавив в нее под номером 35 приведенную строку. 

Графические операторы PRO-DOS иначе, чем их стандартные 
аналоги, реагируют на выход за границы экрана в процессе пост- 
роения линий. Предоставим читателю возможность самостоятель- 
но поэкспериментировать, присваивая параметрам графических 
операторов большие значения (но не более 255). При этом особен- 
но забавные эффекты будут получаться при выполнении операто- 
ра *ELLIPSE. В отличие от стандартных графических операторов, 
при выходе линии за пределы экрана в ряде случаев не выдается 
сообщение об ошибке, например 


*PLOT 128,96: *DRAW 200, 200 


ИЛИ 
*ELLIPSE 128,96,50,100: PAUSE 0 


Действие всех графических операторов PRO-DOS может быть 
молифицировано с помощью оператора 


*жСРАТ п 


Он устанавливает вид линий, которыми булут производиться 
графические построения: сплошные, с разрывами или вообще 
невидимые. 

*СРАТ относится к неисполняемым операторам (подобно INK, PAPER 
и другим). Это означает, что сам он не вызывает никаких действий, 
а лишь влияет на результат выполнения некоторых последующих 
инструкций. Позволим себе привести в качестве аналогии устав- 
ные армейские команды «ШАГОМ» и «БЕГОМ», которые сами не 
оказывают никакого видимого воздействия на дисциплинирован- 
ных военнослужащих, а лишь сообщают, что им придется делать 
после команды «МАРШ». Операторы такого типа характерны для 
PRO-DOS, и мы еще не раз с ними встретимся. 

Вид линии для графических построений задается параметром п 
(0...255), следующим за оператором *GPAT. Его значение, записан- 
ное в двоичном виде, наглядно представляет периодически повто- 
ряющийся элемент линии — 8 пикселей, из которых включенным 
пикселям соответствуют единицы, а погашенным — нули. Удобно 
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вводить параметр в операторе *GPAT в 
двоичном виде с помощью функции 
BIN. Например, вместо 


35 *GPAT 105 
записывать 
35 *GPAT ВМ 01101001 


Попробуйте вставить приведенную АЕ ВИДИТ 
строку в пример программы, рисую- “Shee 
щей эллипсы (рис. 7). 

Выполнение *СРАТ с нулевым аргу- Рис. 7. Построения 
ментом заставляет графические опе- прерывистьыми линиями. 
раторы «строить» фигуры HeBH- 
димыми линиями. Оператор *GPAT 255 
восстанавливает режим рисования сплошной линией; этот же ре- 
жим устанавливаетея при инициализации PRO-DOS. 


тт, 
ОК >. 

i ar т. 
“ >. . т: *. 





*GPAT имеет и еще одно полезное применение, о котором ло- 
гичнее рассказать в слелующем разделе. 


ЗАКРАШИВАНИЕ КОНТУРОВ 
*FBOX, *FILL, *PAINT, *НАТСН, *MATCH 





Мы выяснили, как рисовать Ha экране контуры геометрических 
фигур. Теперь неплохо бы научиться их закрашивать. 

Единственной фигурой, которую можно получить на экране 
сразу закрашенной (или, как говорят, залитой} без предваритель- 
ного прочерчивания контура, является прямоугольник. Его постро- 
ение и заливку делает оператор 


*FBOX x1, y1, x2, y2 


Формат этого оператора совпадает с форматом оператора *BOX. 
Фигуры могут быть залиты не только сплошным фоном, но и 
неким периодически повторяющимся рисунком — текстурой. При 
работе с *FBOX текстура задается оператором *GPAT, рассмотрен- 
ным в предыдущем разделе. Для примера выполним программу: 


30 *GPAT BIN 10000000: REM Шаблон линии 
40 *FBOX 30, 30, 130, 100: REM Прямоугольник 
50 PAUSE 0 


Текстура для закраски прямоугольника формируется из вплот- 
ную прилегающих друг к другу горизонтальных линий. Линии 
составляются из отрезков длиной в 8 пикселей (период трансляции 
равен 8), структура которых задается оператором *СРАТ. Если в 
пределах ширины прямоугольника помещается дробное число та- 
ких отрезков, TO слелующая линия будет начинаться с того места 
отрезка, где закончилась предыдущая. Это приводит к тому, что 
при неизменном параметре оператора *СРАТ (то есть при одинако- 
вом виде линий) будут получаться различные текстуры для прямо- 
угольников с различными остатками от деления их ширины на 
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число 8. Линии получаются по-разному сдвинутыми относительно 
друг друга. Последнее станет яснее, если выполнить несколько раз 
приведенный выше пример, заменяя в 40-й строке число 130 на 
131, 132 ит. д. вплоть до 138. 

*FBOX — единственный оператор заливки, работающий столь 
необычным образом. Ко всем прочим операторам этого раздела 
*СРАТ никакого отношения не имеет. 


Если возникает необходимость закрасить контур произвольной 
формы, его надо сначала построить. Для этого можно воспользо- 
ваться как средствами стандартного Бейсика, так и операторами 
PRO-DOS. Если применяются последние, то нужно следить, чтобы 
они «рисовали» обязательно сплошными линиями, иначе заливка 
«просочится» сквозь контур. Во избежание неприятностей перед 
экспериментами с заливкой лучше установить режим рисования 
сплошной линией, вгедя прямо с клавиатуры *СРАТ 255. 


*FILL x, у 


выполняет сплошную (не текстурную) заливку. Параметрами хиу 
задается координата любой точки внутри закрашиваемого конту- 
ра. Попытка указать координаты точки, расположенной за преде- 
лами замкнутого контура, приведет к сообщению об ошибке (это 
замечание относится ко всем операторам заливки). Проде- 
монстрируем работу оператора *FILL следующей программой: 


30 *BOX 30, 70, 140, 100: КЕМ Прямоугольник 

40 *ELLIPSE 50, 50, 45, 30: REM Перекрывающий его эллипс 
50 *FILL 80, 80: РЕМ Сплошная заливка 

60 PAUSE 0 


Простейшим из операторов, позволяющих выполнять текстур- 
ную заливку контура, является 


*PAINT x, у 


Формат его совпадает с фор- 
матом оператора *FILL. За- 
меним в последнем примере 
xFILL на *PAINT, оставив все 
прочее без изменений. Когла 
программа отработает, мы уви- 
дим ровный, HO не слишком 
оригинальный узор (рис.8). 
Получить другой узор с 
помощью *PAINT, увы, невоз- 
МОЖНО. 





Более универсальными в Рис. 8. Заливка оператором 
группе операторов, выполня- * PAINT. 
ющих заливку, ABASAIOTCH 


*HATCH и *MATCH. 
*HATCH x, y, addr 


позволяет заливать замкнутые контуры любым узором с пе- 
риодом трансляции 8 пикселей по вертикали и 8 по горизонтали. 
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Первые два параметра (x, у) 
задают координаты любой 
точки внутри контура (как в 
*FILL и *PAINT). Третий (addr) — 
адрес (0...65535) начала 8- 
байтовой области памяти, где 
закодировано изображение 
некоего символа. Этим симво- 
лом и будут заполнены все 
знакоместа (8x8 пикселей) 
внутри контура. В знакоме- 
стах, пересеченных контуром, 
прорисовывается лишь часть 
символа, попавшая вовнутрь 
контура. 


Изображение символа формируется стандартным AAA 
ZX Spectrum способом, поэтому создавать текстуру для заливки Вы 
можете сами. Для этих целей удобно пользоваться областью симво- 
лов, определяемых пользователем (UDG), где после включения 
компьютера размещаются изображения прописных латинских 
букв от А Ao U. Выполним программу: 

30 +ВОХ 30, 70, 140, 100 
40 *ELLIPSE 50, 50, 45, 30 
50 *HATCH 80, 80, USR "Р" 
60 PAUSE 0 


Контур будет заполнен буквами Р, изображение которых xpa- 
нится в 8 ячейках памяти, начиная с адреса 65488 (значение, 
возвращаемое функцией USR "Р"). Изменяя эти 8 байт, можно соз- 
дать любую текстуру. Оригинальные узоры получаются, если под- 
ставлять в оператор *НАТСН произвольные адреса памяти 
ZX Spectrum (например, адреса 
в ПЗУ). Замените в примере 
USR "Р" на 0, 1, 2 ит. д. и NOC- А Е 
мотрите, что получится. 


Интересно также взглянуть, 
что произойдет, если восполь- 
зоваться оператором *НАТСН 
там, где он один раз уже отрабо- 
тал, то есть попытаться «пере- 
красить» залитый контур: 

30 *BOX 30, 30, 140, 100 Рис. 9. «Перекраска» текстуры 
40 *ELLIPSE 50, 50, 45, 30 оператерим АЧАТЬН, 

50 *HATCH 80, 80, USR "Р" 

60 *HATCH 80, 80, USR "T": КЕМ Заменится ли текстура? 

70 PAUSE 0 


Не правда ли, это не совсем то, что мы ожидали (рис. 9)? При 
повторной заливке текстуры наложились одна на другую необыч- 
ным образом. 
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Полностью заменить текстуру 
(то есть предварительно стереть 
предыдущую) можно, выполнив 
оператор 


*MATCH addr 


Его действие относится к конту- 
ру, который последним был закра- 
шен с помощью оператора *НАТСН 
(но не «РАМТ и не *FILL). Проверим Рис. 10. «Перекраска» 
это, заменив в предыдущем приме- текстуры оператором *MATCH. 
ре строку 60 на 


60 *MATCH USR "Т": REM Телерь точно зальется! 


ТТТ ТЕ 
= 





Вот теперь, действительно, произошла смена текстуры (рис. 10). 


ОКНА 


* WINDOW, *WSIZE, *NEW, *WRAP, *NOWRAP, *ROLL, *SCROLL, 
*CLEAR, *CLS, *TPAT 





В PRO-DOS имеется группа операторов, предназначенных AAA 
работы с текстовыми окнами. Текстовым окном называется прямо- 
угольная область экрана, в которую может быть направлен вывод 
символьной информации. В PRO-DOS размеры окна должны сос- 
тавлять целое число знакомест. 

До того как выполнен первый оператор работы с окнами, счита- 
ется, что в PRO-DOS определено восемь одинаковых окон разме- 
ром во весь экран (32х24 знакоместа). Если такое равноправие 
Вас не устраивает, прежде всего укажите, с каким окном Вы 
намерены работать, то есть определите текущее окно. Делается это 
с помощью оператора 


*WINDOW п 


Параметр п задает номер окна и может быть в пределах от 0 до 
255. Однако учитываются лишь три младших бита этого числа, по 
которым и определяется номер окна (с 0 по 7). Следовательно, под- 
ставив вместо п число 8, мы назначим текущим нулевое окно, 9 — 
первое ит. д. Оператор «WINDOW п, как и *GPAT, является неиспол- 
няемым. Он лишь указывает послелующим операторам, в какое 
окно осуществлять вывод. 


Оператор *WSIZE служит для установки размеров текущего окна. 
Его формат: 


*WSIZE X1, У1, X2, Y2 


Параметрами X1 и Y1 задаются координаты левого верхнего угла 
окна, Х2 и \2 — правого нижнего. Мы намеренно обозначили 
координаты не строчными, как обычно, а прописными латин- 
скими буквами, чтобы показать, что система «оконных» координат 
отличается от той, в которой работают графические операторы. 
Вообще говоря, это та же система координат, которая применяется 
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в стандартном Бейсике для обозначения позиций печати, TO есть 
все величины измеряются в знакоместах, а началом отсчета (0, 0) 
считается верхнее левое знакоместо экрана. 


Оператор 
*NEW 


деинициализирует все ранее установленные окна, и опять каждое 
из 8 окон будет занимать целиком весь экран. 

После того, как окно произвольного размера устанавливается 
текущим (оператор *WINDOW), вывод информации в него будет 
осуществляться так, как будто ничего не изменилось, только экран 
стал меньше. Правда, при заполнении окна Вы будете избавлены 
от характерного для стандартного Бейсика вопроса scroll?. Ho 
скроллинг все же происходить будет, причем помимо Вашего же- 
лания. Давайте поэкспериментируем: 


30 * WINDOW 0: REM Работаем с окном номер 0 

40 «WSIZE 10, 10, 20, 20: КЕМ Установим его размер 

50 PRINT "Window Мо. 0": REM Где окажется надпись? 

60 PRINT АТ 3,3; "АТ 3,3": КЕМ А эта? 

70 РАМТ "а string” ' “next string”: REM Как работает символ anccr- 
рофа: 

80 PAUSE 200: INK 6: PAPER 7: КЕМ А атрибуты? 

90 LIST: КЕМ Неужели листинг тоже выведется в окно? 


Из результата выполнения строки 60 видно, что позиция печати 
отсчитывается от левого верхнего угла окна, а не всего экрана. 

Обратите внимание, что работа операторов стандартного 
Бейсика PRINT и LIST в PRO-DOS имеет некоторые особенности. Как 
уже отмечалось, введение в программу строки 


OPEN #2, "Р" 


сделает доступными AAA вывода две строки (22 и 23), относящиеся 
к служебному экрану. Встретив эту инструкцию, Speccy уже He 
станет возражать против команд типа PRINT АТ 22,n H PRINT АТ 23пи 
честно выполнит их, если они имеют смысл для текущего окна. 
Оператор вывода текста в строку, номер которой болыше высоты 
окна (вплоть до печати в строку номер 255), приведет к скроллингу 
на соответствующее число строк и присвоит знакоместам новых 
строк текущие атрибуты. Для лучшего понимания сказанного по- 
лезно посмотреть, как работает следующая программа: 

30 FOR N=0 TO 30: REM Попробуем вывести 31 строку 

40 PRINT АТ N,0; INK INT(RND*7+.5); PAPER INT(RND*7+.5); FLASH 

INT(RND+.5); М: REM Да еще в цвете 
50 PAUSE 100: NEXT М: REM И не спеша. 


Здесь в качестве окна используется весь экран. Интересно, что 
PRO-DOS «пропускает» и инструкции типа PRINT АТ n,m, где т боль- 
ше ширины текущего окна (вплоть до 255). Такие операторы просто 
игнорируются. Добавив в конец предыдущего примера строку 


70 PRINT АТ 0, 200; "ж+ж" 


можно В этом убедиться. 
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Большинство управляющих символов, используемых в операто- 
ре PRINT, работает как обычно, кроме запятой, которая может и 
игнорироваться. 

В некоторых случаях описанные особенности операторов выво- 
да на экран являются нежелательными. Например, может вызвать 
трудности отсутствие запроса scroll? при просмотре листинга прог- 
раммы или выводе на экран каких-нибуль длинных таблиц. Эти 
трудности легко преодолимы. Самый простой способ вернуть опе- 
раторам PRINT и LIST их исконные, принятые в стандартном Бейсике 
свойства — отключить на время канал "Р", например: 


CLOSE #2: LIST: OPEN #2,"P" 


В этом случае листинг будет выдаваться с запросом scroll? и He в 
текущее окно, а как полагается, на весь экран. 

Если в программе требуется выводить данные на экран как 
«продосовским», так и стандартным способами, проще для послелд- 
него открыть специальный поток. Сделать это можно, включив в 
программу строку 


30 OPEN #4, "5" 


После этой строки операторы PRINT и LIST будут работать так, как 
им положено это делать в PRO-DOS, а стандартный бейсиковский 
вывод будут осуществлять операторы РАМТ #4 и LIST #4. 

Скроллинг в окне можно заблокировать оператором 


*WRAP 


После его выполнения текст будет выводиться с верхней левой 
позиции окна, замещая уже существующий текст. Впрочем, опять 
же без какого-либо запроса на разрешение сделать это. Вернуться 
к обычному скроллингу можно с помощью оператора 


*NOWRAP 


После инициализации PRO-DOS всегда по умолчанию уста- 
навливается режим *NOWRAP. 


Для принудительного скроллинга изображения в окне служат 
ABa похожих оператора: *ROLL и *SCROLL. Оба имеют одинаковый 
формат: 


*SCRO LL т, п 
*ROLL т, п 


Параметром п определяется направление скроллинга. Из сооб- 
ражений наглядности разработчик PRO-DOS связал значения это- 
го параметра с цифровыми обозначениями соответствующих кур- 
сорных клавиш ZX Spectrum: 


n=5 влево; 
п=б BHH3; 
n=7 вверх; 
п=8 вправо; 


п=5+6=11 влево-вниз; 
п=5+7=12 влево-вверх; 
п=8+6=14 вправо-вниз; 
п=8+7=15 вправо-вверх. 
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Вообще говоря, параметр п может принимать любые значения в 
диапазоне —255...255, однако предсказуемый эффект дадут лишь 
приведенные выше. 

Параметром т (—255...255) задается количество знакомест, на 
которое нужно осуществить смещение текста в окне (в направ- 
лении, указанном параметром п). Параметр т, равный нулю, за- 
блокирует скроллинг. 

В чем же отличие межлу операторами *SCROLL и *ROLL? Первый 
осуществляет обычный (нециклический) скроллинг. После его вы- 
полнения текст при смещении будет уходить «в никуда». *ROLL 
реализует циклический скроллинг: символы, исчезнувшие у одной 
границы окна, тут же будут появляться у противоположной. 


*CLEAR п 


Оператор *CLEAR дает возможность быстро очищать окно и уста- 
навливать в нем цветовые атрибуты. Значения параметра п могут 
быть любыми в диапазоне 0...255, хотя интерес представляют лишь 
первые четыре числа (дальше все повторяется). Оператор *CLEAR 3 
очистит окно и установит для всех его знакомест значения атрибу- 
тов, которые последними встретились при выполнении програм- 
мы. Причем неважно, какие это были атрибуты: постоянные или 
временные. Так, приведенная ниже программа, в конечном итоге, 
очистит указанное окно и окрасит его в красный цвет (РАРЕК 2) без 
мерцания (FLASH 0): 

30 *WINDOW 0: КЕМ Текущее окно 

40 *WSIZE 3, 3, 10, 10: КЕМ Размеры окна 

50 FLASH 1: PRINT INK 3; PAPER 4; "*жжж"; INK 1; PAPER 2; "+++"; 
FLASH 0; 

60 *CLEAR 3: REM Очистка окна 


*CLEAR 2 сделает все то же самое, HO не удалит ранее выведен- 
ные в окно символы. *CLEAR 1, напротив, очистит окно OT симво- 
лов, а атрибуты оставит без изменений. Вы можете убедиться в 
этом, меняя параметр оператора *CLEAR в строке 60 приведенной 
программы. Таким образом, результат последовательного выпол- 
нения *CLEAR 1 и *CLEAR 2 эквивалентен TOMY, что получится при 
выполнении *CLEAR 3. Что касается *CLEARO, то он вообще не 
вызывает никаких изменений. 

Но возможности оператора CLEAR шире. Выполните пример: 


30 * WINDOW 0 

40 *WSIZE 3, 3, 10, 10 

50 PRINT INK 3; PAPER 4: REM Пока все понятно... 

60 *TPAT BIN 01001100: REM ... а это что-то новенькое 
70 *CLEAR 3 


и обнаружите, что окно залито текстурой в соответствии с шабло- 
ном, заланным оператором 
*TPAT 


Попробуйте изменить параметр оператора *CLEAR в строке 70. 
Вы увидите, что ноль снова не приведет ни к какому эффекту, 
единица даст черно-белую заливку окна текстурой, а двойка: 
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закрасит окно атрибутами (в соответствии со строкой 50), но без 
текстурной заливки. 


Оператор 
*CLS 


делает в точности то же самое, что и *CLEAR 3, и введен, по-видимо- 
My, для удобства. Совместная работа *TPAT и *CLS напоминает 
действие пары *СРАТ и *FBOX. Олнако для *TPAT и *CLS соседние 
горизонтальные линии заливки смещаются друг относительно дру- 
га на один пиксель, и это приводит к тому, что узор в окне имеет 
вид диагональных полосок. По-видимому, не требует особых пояс- 
нений утверждение, что 


*TPAT 255: *CLS 


ласт сплошную заливку окна, а 
*ТРАТ 0: *CLS 


очистит окно от текстуры. Повторное использование этих двух 
операторов в одном и том же окне приведет к замене текстуры на 
новую. 


Напоследок отметим, что графические операторы при выводе на 
экран игнорируют факт существования окон. 

Некоторые дополнительные сведения об окнах приведены в 
Приложении 4. 


ШРИФТЫ 


*CCHR, *CHR, *CSIZE, *LARGE, *NORMAL, *DIR 





Подобно таким мощным диалектам Бейсика, как Mega-Basic и 
старшие версии Beta Basic, маленький PRO-DOS позволяет рабо- 
тать со шрифтами различных размеров. 

Простейшей операцией со шрифтом, выполняемой PRO-DOS, 
является переключение набора символов со стандартного (ширина 
знака 8 пикселей) на узкий (ширина знака 4 пикселя). Делает это 
переключение оператор 


*CCHR 


Применяется узкий шрифт Tak же, как и обычный (с учетом 
приведенных в предыдущем разделе особенностей вывода данных 
в окна). Только атрибуты для двух смежных символов, вписанных 
в стандартное знакоместо (8х8 пикселей), естественно, будут всег- 
да одинаковы. Кроме того, узкие символы не распознаются функ- 
цией стандартного Бейсика SCREEN$ (X,Y) (см. стр. 92). 

После переключения на узкий шрифт произойдет переопреде- 
ление всех зарегистрированных в системе окон. За единицу H2Me- 
рения величин, определяющих расположение и размеры окна, 
будет принято не стандартное, а узкое знакоместо (4х8 пикселей). 
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Приведем пример, который иллюстрирует эту достаточно неор- 
линарную особенность: 


30 *WSIZE 10, 2, 16, 8: REM Единственное окно 

40 *ТРАТ ВМ 11100010: РЕМ Шаблон для его заливки 
50 GO SUB 100: REM Сходим на заливку 

60 *CCHR: REM Узкий шрифт 

70 PAUSE 100: GO SUB 100: REM Зальемся еще разок 
80 STOP 

100 *CLS: PRINT "***": RETURN: REM Здесь заливают 


Результат работы программы приве- 
ден на рис. 11. 


Создается впечатление, что на экра- 
не присутствуют два различных окна. 
На самом же деле, это одно и то же, 
определенное в строке номер 30 окно, 
которое по-разному трактуется в зави- 
симости от типа установленного шриф- 
та. Попутно заметим, что изменение Рис. 11. «Раздвоение» 
размера шрифта не влияет на фактуру ining 
заливки, заланную инструкцией *ТРАТ. 


Если узкий шрифт инициализирован сразу после запуска PRO- 
DOS или после команды *NEW, To для него будет доступна лишь 
левая половина экрана. Строка, длиннее 32 символов, будет пере- 
носиться, а попытка выполнить, скажем, оператор 


РАМТ AT 0, 40; "*жж*" 


будет игнорироваться. Чтобы сделать AOCTYNHOM для узкого шриф- 
та правую половину экрана, необходимо создать окно соответству- 
ющего размера, например, оператором 


*WSIZE 0, 0, 63, 23 


Восстановить режим печати нормальным шрифтом, то есть OT- 
менить действие *CCHR, можно при помощи оператора 


*CHR 


Если узкий шрифт по своим свойствам практически аналогичен 
обычному, то шрифты, которые мы с известной долей условности 
будем называть графическими, существенно отличаются от него. 


Размер графических шрифтов задается неисполняемым опера- 
тором 


*CSIZE п, т 


и может быть только кратным (и, в частности, равным) размеру 
стандартного. Первый параметр определяет значение вертикаль- 
ного, а второй — горизонтального масштабных факторов. Оба 
значения могут быть только целочисленными. Например, инструк- 
ция *CSIZE 2, 1 «сгенерирует» шрифт в два раза выше, а *CSIZE 1, 2 
— в два раза шире стандартного. Команда *CSIZE 32, 24 сформирует 
шрифт, где каждый символ будет размером во весь экран. Возмож- 
но и дальнейшее -увеличение размеров символа (вплоть до 
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*CSIZE 255, 255), равно как и уменьшение до нулевого размера 
(*CSIZE 0, п, *CSIZE п, 0 или *CSIZE 0, 0). Однако эти варианты вряд 
ли представляют практический интерес. 

Поскольку оператор *CSIZE является неисполняемым, в РКО- 
DOS введен специальный оператор инициализации графического 
шрифта 


*LARGE 


Он не требует параметров. После того как *LARGE встретится в 
программе, PRINT начнет печатать графическим шрифтом, размеры 
которого были заданы последним выпслненным оператором *CSIZE. 
Обратное переключение на стандартный шрифт производит опе- 


ратор 
*NORMAL 


*LARGE без предварительного выполнения оператора *CSIZE yc- 
танавливает графический шрифт с размером, равным стандартно- 
му (8х8 пикселей). То есть по умолчанию считается, что выполнен 
оператор *CSIZE 1,1. 


Теперь о специфике работы с графическими шрифтами. Bo- 
первых, при печати с их использованием игнорируются ключевые 
слова АТ и ТАВ — оператор РАМТ выводит символы, начиная с 
левого верхнего угла экрана. Если текст превышает длину строки 
экрана, то вывод продолжается с начала той же строки. 

Позиция вывода устанавливается с помощью оператора 
*PLOT x, у (HO не PLOT без звездочки!). Параметры x (0...256) uy 
(0...192) задают координаты верхнего левого угла позиции печати 
первого выводимого символа. Аля того, чтобы в этой позиции не 
появлялась точка, можно использовать конструкцию 


PRINT INVERSE 1;: *PLOT x, у: PRINT INVERSE 0 


При выводе Ha экран надписей, выполненных графическими 
шрифтами, так же как и при графических построениях, игно- 
рируются знакоместа и окна, символы накладываются на сущест- 
вующее изображение, не стирая его. Это и позволило нам назы- 
вать их «графическими». 

При работе с графическими шрифтами нужно следить за цвето- 
выми атрибутами экрана. Может получиться так, что один символ 
будет окрашен в несколько цветов (хотя это не всегда плохо). 


Уникальной среди диалектов Бейсика является способность 
PRO-DOS печатать графическими шрифтами в восьми направ- 
лениях. Неисполняемый оператор 


*DIR п 


определяет направление печати в зависимости от значения пара- 
метра п, которое задается тем же способом, что и для операторов 
скроллинга (см. стр. 143). 

Приведем пример, демонстрирующий возможности графичес- 
ких шрифтов (рис. 12): 


30 *NORMAL: КЕМ Стандартный шрифт 
40 РОК L=2 ТО 15: PRINT АТ |, 6; "NORMAL": NEXT L:REM Строки 
стандартным шрифтом 
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50 *CSIZE 2, 2: REM Размер графического шрифта 

60 *LARGE: REM Инициализация графического шрифта 
70 *DIR 14: КЕМ Пишем вправо-вниз 

80 PRINT INVERSE 1;: *«РЕОТ 20, 180: РАМТ INVERSE 0; 

90 PRINT "GRAPHIC": КЕМ Строка графическим шрифтом 


Символы графических шрифтов раз- 


личных размеров формируются непосред- CS Neanac 
ственно в процессе работы программы из ASNSanat 
текущего набора символов, расположенно- *АЗВНЯЕ 
го в ПЗУ или ОЗУ. Поэтому при использо- NOR at 
вании альтернативного (например, руси- NORMS 
фицированного) символьного набора авто- NORMAROS 
матически будут получаться графические А т 


шрифты такого же вида. Напротив, изоб- 
ражения символов узкого шрифта зако- 
лированы внутри системного файла РКО- Рис. 12. Возможности 
DOS, и поэтому русификация его более  ГРафических шрифтов. 


трудоемка*. 
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Применение PRO-DOS для создания демонстрационных и учеб- 
ных программ (например, для видеосопровождения лекций и AO- 
кладов) предъявляет повышенные требования к скорости вывода 
картинок и текста на экран монитора. Поскольку система РКО- 
DOS, как и стандартный Зреснит-Бейсик, является интерпретато- 
ром, то она не в состоянии обеспечить высокую скорость выпол- 
нения операций обработки экранного изображения. Это приводит 
к нежелательным задержкам и побочным видеоэффектам, которые 
могут отвлекать внимание зрителя. Для обхода этих трудностей в 
PRO-DOS заложена возможность работы с так называемым тене- 
вым экраном. 

Теневой экран — это область ОЗУ, по размерам равная экран- 
ной области памяти (6912 байт). Предварительно построенное в 
ней графическое изображение практически мгновенно можно пе- 
реместить на экран. 

Адрес начала размещения в памяти области теневого экрана 
задается оператором 


*SCREEN addr 


Параметр addr может принимать значения в лиапазоне 
0...65535, но, как нетрудно догадаться, не все адреса из этого 
диапазона являются приемлемыми для записи. Хотя ничто не 


Автор этих строк ввел в PRO-DOS новый оператор *CHFNT, который позволяет 
переключать все шрифты (стандартный, узкий и графические) с латинского набо- 
ра на русский и обратно. 
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помешает посмотреть, как выглядят на экране, скажем, первые 
6912 байт ПЗУ. 


My, 





Теневой экран «признают» все 
операторы PRO-DOS, а также PRINT 
и LST. Инструкции стандартного 
Бейсика PLOT, DRAW и CIRCLE ра- 
ботают только с «видимым» экра- 
HOM. 

Располагать теневой экран 
лучше всего вслед за бейсик-прог- 
раммой, защитив ее командой 
CLEAR addr—! (то есть установив 
RAMTOP на единицу меньше ал- 
реса начала теневого экрана). 
Если addr=16384, то области тене- 
вого и обычного экранов совпадут. 
Кстати, при инициализации РКО- 
PPE ЕТУ DOS устанавливается именно этот 
re ay режим, и мы не замечаем сущест- 

вования теневого экрана. 
Содержимое теневого экрана 
мгновенно «перебрасывается» в экранную область ОЗУ, то есть 
стачовится видимым, с помощью оператора 





*ж$ WAP 


При этом содержимое теневой области не изменяется, и там 
можно продолжать построения. Все неисполняемые операторы не 
различают теневой и обычный экраны, то есть при переключениях 
с одного экрана на другой сохраняются описания окон, шрифтов, 
заливок. Например, определив окно на основном экране 


«WINDOWS: WSIZE 0,0,10,12 


мы «бесплатно» получим точно такое же окно на теневом и 
наоборот. 

Можно пользоваться двумя, тремя и т. д. теневыми экранами 
(сколько поместится в ОЗУ), переключаясь с одного на другой с 
помощью оператора *SCREEN. *SWAP булет работать с текущим 
экран `м, то есть с тем, чей адрес был уцомянут в последнем 
выполненном операторе *SCREEN. 

Перед использованием теневой экран надо хорошенько «про- 
тереть» с помощью *CLEAR или *CLS, поскольку никто не знает, что 
там находится. Даже если в этой области памяти «сидят» одни 
нули, то это значит, что фон на всем экране будет «радикального» 
черного цвета, что не всегда требуется. Приведем пример, де- 
монстрирующий работу с теневым экраном: 


30 CLEAR 39999: КЕМ Резервируем место под теневой экран 

40 *ELLIPSE 80, 80, 70, 30: КЕМ Долго рисуем эллипс на видимом 
экране 

50 *SCREEN 40000: КЕМ Переключаемся на теневой экран 

60 *CLS: КЕМ Чистим ero 

70 *ELLIPSE 70, 60, 45, 30: REM Рисуем эллипс на теневом экране 

80 *SWAP: REM Мгновенно перебрасываем на видимый экран 
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1. Алфавитный перечень операторов PRO-DOS* 


Таблица 7. 











р Cr 


x1, yl,| Рисует прямоугольник с координатами 7 lag 62984 









; вершин (x1, yl) и (x2, y2) 


Переключает шрифт с нормального Ha 145 | 62535 
узкий ` 
Переключает шрифт с узкого на 62544 
нормальный 


Очистка/ заливка окна. Параметр 144 | 61559 
устанавливает режим очистки/ заливки 


Очистка/ заливка окна. Эквивалентен 
*CLEAR 3 


Устанавливает размер символов 
графического шрифта 






*CSIZE 
*DRAW x, у. Рисует отрезок от текущей точки до 135 | 62752 
точки с координатами (х, у) 
*ELLIPSE х, у, Рисует эллипс с координатами центра 63023 
a,b (x, у) и полуосями an b 
*FBOX _| xt, у1,| Рисует прямоугольник с текстурной 3a- 62841 
х2, у2 | пивкой и координатами вершин 
(x1, у1) и (x2, y2) 
*FILL x, у Осуществляет CNNOWHYtO запивку замкну- 
того контура вокруг точки с 
координатами (х, у) 
*СРАТ i 62577 
*HATCH 4 Wi 62266 
addr 
(x, у} изображениями символа, 
| закодированными по адресу addr 
Включает режим графического шрифта 62559 


[stance [= 


* 

















Устанавливает шаблон для рисования 
графических объектов прерывистыми 
линиями и текстуру для оператора *FBOX 










Осуществляет заливку замкнутого 
контура вокруг точки с координатами 














В таблице приведен адрес подпрограммы PRO-DOS, реализующей действие опе- 
ратора. 
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*LINE x2, y2 | Рисует отрезок прямой пинии с коорди- |135 | 62896 
натами концов (x1, у!) и (х2, y2) | 








*MATCH addr | Заменяет заливку, полученную поспед- 141 162478 


ним оператором *HATCH, на изображе- 
ние символа, закодированное по адресу 

60272 
143 | 62526 | 


addr 





Устанавливает стандартные параметры 
для всех окон 









re 
< 
= 





*NOWRAP | — Разрешает скроллинг при запопнении 


окна 


*NORMAL — Выключает режим графического шрифта 62568 



















*PAINT x, У Производит текстурную заливку 139 | 62622 
замкнутого контура вокруг точки с 
координатами (x, у) 

*PLOT i, ¥ Рисует точку с координатами (x, у) и 135 | 61321 
устанавливает в ней позицию печати для 
графических шрифтов 

m,n 

*SCREEN addr | Устанавливает адрес addr начала 60255 
теневого экрана 

*SCROLL OcyluectanseT нециклический скроллинг 62096 
от нуля. Параметр п определяет 
направление скроплинга 

*TPAT Устанавливает шаблон для текстурной 62591 
заливки окон с помощью операторов 


*ROLL Осуществляет циклический скроплинг 143 | 62090 
окна на одно знакоместо, если Mm 
отлично от нуля. Параметр п опредепяет 
направление скроппинга 
ot окна на одно знакоместо, если M отлично 
*SW AP Копирует содержимое теневого экрана 60236 
в экранную область 
БЫ *CLEAR и *CLS 












*TRIANGLE | x1, y1,} Рисует треугольник с указанными коор- 
x2, y2,| динатами вершин (x1, yl), (x2, y2) и 
x3, y3 | (x3, y3) 


* WINDOW ha 2. Устанавливает текущим окно с номером п 60481 
*WPOKE | ni, п2 | См. Приложение 4 60217 
* WRAP ae 62517 






2, Y2| угпа; (X2, Y2) — правого нижнего 
(в знакоместах) 


Блокирует скроллинг при заполнении ба 
окна 


*W SIZE Х1, Устанавливает границы текущего окна: 
vi, (X1, ¥Y1) — координаты левого верхнего 
X2, 
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2. Распределение памяти при работе c PRO-DOS 





Р_РАМТ (23732)* 
Симвопы, определяемые пользователем 
UDG (23675) 
Свободная область 
ный ливан трииинениинынныы БРНО 
Интерпретатор PRO-DOS 
60000 
Свободная область 
RAMTOP (23730) 


E_LINE (23641) 
Переменные Бейсика 
VARS (23627) 
Бейсик-программа 
‚ PROG (23635) 


3. Вывод на принтер 


При работе в среде PRO-DOS возникают определенные слож- 
ности с выводом на принтер. Выполняемая при инициализации 
PRO-DOS модификация канала "Р" (см. стр. 133) дает о себе знать 
при попытке обращения к принтеру: вместо бумаги вывод идет на 
экран. 

РКО-РО5 обычно используют AAA написания демонст- 
рационных программ, как правило, не требующих работы с 
принтером. Но в некоторых случаях, например, при отладке прог- 
раммы бывает полезно распечатать ее листинг или значения пере- 
менных. Листинг проще всего получить, воспользовавшись коман- 
дой LLIST в момент, когла PRO-DOS еще He инициализирована 
оператором RANDOMIZE USR 60000. Например, для распечатки текста 
фирменной демонстрационной программы PRODOSDEMO можно 
загрузить ее в память с помощью оператора MERGE (во избежание 
автоматического запуска программы) и выполнить LLIST. 

Однако описанный метод не позволяет выводить информацию 
на принтер непосредственно в процессе работы программы. Эту 
проблему можно решить, если перед операцией вывода на принтер 
модифицировать две ячейки памяти, отвечающие за работу канала 
"Р", так, чтобы перенаправить действие операторов печати LPRINT 
и LLIST с экрана на принтер. А затем, сразу после печати, 
вернуть содержимое этих ячеек в исходное (характерное для 
PRO-DOS) состояние. Указанные ячейки располагаются в 
области информации о каналах** по адресам 23749 и 23750 


* 
В скобках приведены адреса системных переменных, в которых записаны зна- 


чения адресов соответствующих границ областей памяти. 
Подробнее см. в [1]. 


xe 
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(если подключен и инициализирован Beta-Disk Interface, To по 
адресам 23861 и 23862). В этих ячейках должен содержаться адрес 
процелуры (драйвера), обслуживающей канал "Р". При ини- 
циализации PRO-DOS в них записывается значение 60514. Перед 
работой с принтером это значение надо заменить на адрес приме- 
няемого драйвера (первая ячейка должна содержать младший байт 
адреса, а вторая — старший). 

Если Вы владелец фирменного ZX Spectrum с «родным» для 
него принтером ZX-Printer, то нужный драйвер «зашит» в ПЗУ по 
адресу 2548 (#09F4). В этом случае программа, использующая 
вывод на принтер, может выглядеть так (предположим, что диско- 
вый интерфейс отсутствует): 


10 RANDOMIZE USR 60000 
20 OPEN #2, "Р" 


100 LET a=100: LET b=200 


200 РОКЕ 23749,244: POKE 23750,9: REM Размещаем младший и 
старший байты числа 2548 

210 LPRINT а: (РАМТ b: REM Любые операции вывода на принтер 

220 РОКЕ 23749,98: РОКЕ 23750,236: REM Размещаем младший и 
старший байты числа 60514 


Программа выведет значения переменных а и b на принтер. 

Если у Вас самодельный Spectrum-cOBMeCTHMBIH компьютер с 
нестандартным принтером, то нужно вместо значения 2548 под- 
ставить адрес размещения этого драйвера. Чаще всего драйверы 
располагают в ОЗУ в области буфера принтера по адресу 23296. 
Если это так, то достаточно заменить строку 200 в приведенном 
примере на слелующую (для разнообразия примем, что Вы еще и 
обладатель интерфейса Beta-Disk, тогда изменится и 220-я строка): 


200 РОКЕ 23861 ,0: РОКЕ 23862,91: REM Размещаем младший и 
старший байты числа 23296 
220 РОКЕ 23861,98: РОКЕ 23862,236 


Разумеется, строки с номерами 200 и 220 можно оформить в 
виде двух подпрограмм и вызывать их каждый раз при необ- 
ходимости вывода на принтер. 


4. Дополнительные сведения об окнах 


PRO-DOS располагает еще одним оператором — *WPOKE. Он 
меняет содержимое внутренних системных переменных PRO-DOS, 
описывающих текущие параметры окон. Выполнение 


*WPOKE п, т 
эквивалентно действию оператора 
РОКЕ 60321+ABS(n), ABS(m) 
— rae пи т — целые числа в диапазоне —255...255. 
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Внутренние системные переменные расположены в области 
ОЗУ, начиная с адреса 60321. Для каждого окна, включая нулевое, 
в этой области отведено по 20 байтов. Объем всей области пере- 
менных равен 8х20=160 байт. 


Оператор 
*УУРОКЕ 20*w+(v—1), К 


запишет число К ву-ю ячейку области системных переменных Ww-TO 
окна. 


Назначение яческ: 


|...$ — размеры окна. Устанавливаются оператором *WSIZE. Начальные значения — 0, 0, 
311.23; 


$ иб — координаты текущей позиции печати (номер столбца, номер строки). Начальные 
значения -— On O; 


Ти 8 — координаты последней выставленной точки. Изменяется только при выполнении 
графических операторов PRO-DOS. Начальные значения — On 191; 

9 — тип заливки окна. Устанавливается оператором *ТРАТ. Начальное значение — 0; 

10 — тип линии. Устанавливается оператором *GPAT. Начальное значение — 255; 


11 и 12 — размер символов графического шрифта. Изменяются оператором *CSIZE. На- 
чальные значения —1и1; 


13 — тип шрифта и разрешение / запрет скроллинга: если установлен режим *NOWRAP, 
то значение байта равно 128 для стандартного шрифта, 160 — для графического и 192 — 
для узкого. Если установлен режим *WRAP, приведенные значения увеличиваются на 4. 
Начальное значение — 128. (Не следует помещать в эту ячейку неспецифицированные 
значения — это приводит к непредсказуемым результатам); 


14 — направление печати. Устанавливается оператором *DIR. Содержимое ячейки не сов- 
падает со значениями параметра *DIR: 1 — вправо, 2 — вниз, 4 — вверх и 8 — влево, 
диагональные направления указываются суммой соответствующих значений горизон- 
тального и вертикального. Начальное значение — 1; 


15 — постоянные цветовые атрибуты окна. Значение определяется по формуле, приведен- 
ной на стр. 55. Начальное значение — 56 (INK 0; PAPER 7; BRIGHT 0; FLASH 0); 


16 — не используется; 
17 — атрибуты OVER и INVERSE. Значение определяется по формуле 
К =<OVER> +4x<INVERSE> +32хС 
- где С = 1, если атрибуты после инициализации окна хотя бы раз изменялись, иначе © = 0. 
Начальное значение — 0; 


18 и 19 — адрес размещения теневого экрана; устанавливается оператором *SCREEN ; 
первоначальное значение — 16384 (стандартная экранная область); 


20 — не используется. 


Недостатком оператора *WPOKE является отсутствие «защиты OT 
дурака»: если первый аргумент превышает 159, то *WRAP будет 
изменять содержимое ячеек памяти за пределами таблицы «окон- 
ных» переменных. Это может привести к чему угодно, вплоть до 
сброса компьютера. 
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LASER BASIC 


. Laser Basic* — это целый пакет программ, предназначенный для 
манипулирования графическим изображением. С его помощью 
можно выводить на экран монитора картинки (спрайты), инвер- 
тировать их, поворачивать, зеркально отображать... и, что самое 
ценное, самое нужное, самое приятное — перемещать по экрану. 
Довольно быстро и без особых ухищрений можно создавать мульт- 
фильмы и даже динамические игры. 

Картинки подготавливаются в специальной программе — гене- 
раторе спрайтов, входящей в пакет Laser Basic. Можно воспользо- 
ваться и любым графическим редактором для ZX Spectrum 
(Art Studio, Artist П) или даже позаимствовать готовые картинки из 
фирменных программ. 

Программы изначально пишутся в интерпретаторе Laser Basic, кото- 
рый распознает и выполняет более ста новых операторов и функций. 
Отладив программу в интерпретаторе, можно затем обработать ее с 
помощью компилятора Laser Basic. Это значительно (примерно в 2 
раза) увеличивает скорость работы программы, уменышает занимае- 
мую ею память и защищает ее текст от просмотра. 

В пакет входят также две демонстрационные программы: Demo и 
Game, задача которых показать все достоинства Laser Basic. 


ТЕРМИНОЛОГИЯ 





Основные объекты, которыми оперирует Laser Basic, — это окна 
и спрайты. 

Окно экрана выделяет прямоугольную область, на которую рас- 
пространяется действие операторов, выполняющих графические 


Автор Kevin Hambleton, фирма Oasis Software, версия 1.3, спецификация файлов 
приведена в Приложении 5. 
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преобразования. Окно задается с точностью AO знакоместа KO- 
ординатами левого верхнего угла, шириной и высотой. 


Другой объект, с которым имеет дело Laser Basic, — это спрайт. 
Если окно привязывается к некой области экрана (причем без- 
различно, что в этой области изображено), то спрайт, наоборот, 
имеет собственный внешний BHA и может «гулять» по экрану. (Все 
прыгающие, летающие, катящиеся и прочие двигающиеся изобра- 
жения в компьютерных играх и есть те самые спрайты, о которых 
идет речь.) Спрайт (от англ. sprite — эльф) можно определить Kak 
перемещаемый графический объект с неизменными рисунком и 
размером. Спрайты создаются обычно до написания программы и 
хранятся в памяти компьютера 
в виде так называемого спрайт- 
файла. Спрайт-файл может 
объединять до 255 спрайтов 
разного размера (от знакоместа 
и более). По желанию прог- 
раммиста спрайты могут быть 
вызваны из спрайт-файла и 
помещены на экран, где с ними 
можно делать все, что позволит 
Газег Basic, и, конечно, 
передвигать. Для чего спрайты 
и предназначены. 





Кроме термина «окно экрана» (или просто — окно) в лексиконе 
Laser Basic есть еще и такое понятие, как окно спрайта, обозначаю- 
щее прямоугольную область спрайта. Выделение в спрайте окна 
позволяет трансформировать, а также выводить на экран не только 
целиком весь спрайт, но и часть его, что бывает очень полезно. 


ИНТЕРПРЕТАТОР 





Интерпретатор Laser Basic не накладывает никаких ограниче- 
ний на использование операторов стандартного Зресшит-Бейсика. 
В этом плане единственным его недостатком можно считать то, что 
OH «затирает» область символов, определяемых пользователем*. 


Операторы Laser Basic задаются ключевыми словами, состо- 
ящими из пяти символов: первый — точка (.}, четыре последу- 
ющих’ — прописные (и только прописные) буквы латинского ал- 
фавита. Например: .PTBL, .MOVE. Набираются ключевые слова 
посимвольно. 

При вводе строки программы интерпретатор Laser Basic прове- 
ряет ее на правильность синтаксиса. Строка с ошибкой «не вво- 
AHTCA», а в сомнительном месте обычно появляется мерцающий 
знак вопроса (}). 





* Впрочем, этот недостаток легко устраняется изменением системной переменной 


UDG (23675 /76), см. стр. 64. 
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ИНТЕРПРЕТАТОР 


Параметры операторов Laser Basic передаются интерпретатору 
иначе, чем в стандартном Бейсике и других его: диалектах, — не 
указанием значений вслед за ключевым словом, а через специаль- 
ные графические переменные. Перед выполнением оператора необ- 
ходимо присваивать требуемые значения определенным гра- 
фическим переменным”. 

Имена графических переменных состоят из четырех символов: 


первый — точка, остальные — строчные буквы латинского ал- 
фавита. 
Всего графических переменных десять: 
.ROW, .COL `— вертикальная и горизонтальная координаты в 
знакоместах (пределы, соответственно, 0...23 и 
Ost Vi 
‚НОТ, .LEN — высота и ширина графического объекта 
(окна экрана, спрайта) в знакоместах (0...24 и 
ыы 


Строго говоря, переменные 
ROW, .COL, „НСТ и .LEN могут 
принимать любые значения от 
0 ao 255, в том числе и отрица- 
тельные. Однако в этом случае 
может возникнуть ситуация, 
когда спрайт или окно 
частично или полностью вый- 
дет за пределы экрана. Кроме 
ТОГО, надо ПОМНИТЬ, что 
положительные значения, пре- 
вышающие 127, будут интер- 
претироваться как отрицатель- 
ные и, наоборот, отрицатель- 
ные в пределах —128...—-255 — 
как положительные. Например, 
255 приравнивается к -1, а 
—251 приравнивается к 5. 





SRW, .SCL — вертикальная и горизонтальная координаты 
внутри спрайта в знакоместах; 

.МРХ — величина и направление вертикального 
скроллинга в пикселях (—128...127); 

.SPN — номер спрайта в спраийт-файле (1...255); 

„ЭРТ, sP2 — номера первого и второго спрайтов (1...255) 


для операторов, работающих с двумя спрайтами. 
В отличие от переменных стандартного Бейсика графические 
переменные всегда определены: после загрузки Laser Basic их зна- 
чения равны нулю. 
Присвоение значений графическим переменным происходит 
без использования оператора LET. Например: 


.ROW=1 или .COL=c или .LEN=s+d*3 


ы Из этого правила выпадают только несколько операторов. 
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Графические переменные He могут быть параметрами операто- 
ров, аргументами функций 5реснат-Бейсика или частью выра- 
жений. Нельзя, например, писать: 


LET a=.ROW или PRINT .COL или .SPN=.COL 


Для присвоения значений графических переменных обычным 
числовым переменным используются специальные графические 
функции. Имена их идентичны именам соответствующих графи- 
ческих переменных, только вместо точки в них ставится знак 
вопроса (например, ?ROW, ?COL). 

Графические функции могут использоваться только с операто- 
ром присвоения в строках типа: 


LET r="ROW 


— где г — обычная числовая переменная, (ROW — функция, воз- 
вращающая значение графической переменной .ROW. 

Аналогично, с помощью соответствующих графических функ- 
ций (?COL, ?LEN, ?HGT, 3$Р1, ?SP2, ?5РМ, ?NPX, ?SCL, ?SRW) числовым 
переменным могут быть присвоены значения остальных девяти 
графических переменных. 

Нужно учитывать, что если какая-либо графическая перемен- 
ная принимает отрицательное значение, то результат выполнения 
соответствующей функции окажется положительным числом боль- 
ше 127. Например: 


10 .COL=—5: LET 2=СО% 
20 PRINT 7: КЕМ Z равна не —5, а 251 (256—5) 


Загрузка и запуск интерпретатора 


Фирменный вариант пакета Laser Basic предусматривает воз- 
можность работы всех входящих в него программ с лентой и 
микродрайвом*. По ряду причин микродрайв в нашей стране не 
получил распространения. Поэтому довольно быстро появилась 
версия, поддерживающая работу и с магнитофоном, и с диском в 
системе TR-DOS. Именно о ней и пойдет речь в предлагаемом 
описании. 


Все примеры программ, приведенные в описании, кроме спе- 
циально оговоренных, будут работать и с лентой, и с диском. Если 
Вы пользуетесь AHCKOBOAOM, то перед операторами LOAD, SAVE, 
MERGE и VERIFY следует вставлять RANDOMIZE USR 15619: REM: 

В пакет Laser Basic включена программа-диспетчер Laser. 3a- 
грузим ее, и через некоторое время на экране появится меню 
(рис. 13) (для ленточной версии пятая и шестая позиции будут 





* Po 
Микродрайв — накопитель на кольцевой магнитной ленте. 
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несколько отличаться от изображенных на рисунке). Рассмотрим 
позиции меню (опции): 


1 EXECUTE LASER BASIC 


Запуск интерпретатора Laser Basic. При выборе этой опции 
бейсик-программа «сбросится» и в ОЗУ останутся только коды 
интерпретатора. После этого можно выполнять операторы 
Laser Basic, загружать и сохранять файлы ит. д.; 


2 LOAD YOUR OWN SPRITES 


3 LOAD "SPRITE2A” SPRITES 


4 LOAD “SPRITE2B” SPRITES 


/ LASER BASIC © oASIS бе | 





Загрузка спрайт-файла, создан- 
ного пользователем. На запрос 
INPUT SPRITE START ADDRESS нуж- 
но ввести адрес загрузки 
(нижнюю границу} спрайт- 
файла*; 









BETA-OISK VERSION 

. ЕХЕСУТЕ LASER BASIC 

»-»-LORD YOUR OWN SPRITES 

» LORD “SPRITE2A" SPRITES 

. LOAD “SPRITE2B" SPRITES 
PRINT CATALOGUE 

» RETURN ТО ТЯРЕ MENU 


aogFt BND PK 


Загрузка спрайт-файла 
SPRITE2A; 


PLEASE SELECT OPTION. 


Загрузка спрайт-файла 
SPRITE2B (этот файл использу- Рис. 13. Главное меню 


ется в демонстрационной прог- программы LASER. 


рамме Demo); 


5 SAVE LASER BASIC TO 5’25 FLOPPY DISK 


либо 


5 PRINT CATALOGUE 


Копирование Laser Basic с ленты на диск в системе TR-DOS (для 


«ленточного» меню} или выдача каталога диска (AAA «дискового» 


меню}; 


6 RETURN ТО TAPE MENU либо RETURN TO DISK MENU 


Переход из ленточного меню в дисковое и обратно. 


Вывод спрайтов на экран 


Загрузим один из спрайт-файлов, например, фирменный файл 


SPRITE2B** (опция 4 меню), запустим интерпретатор Laser Basic 
(опция 1) и выведем на экран один из спрайтов, например, пер- 
вый. AAA задания номера спрайта и его местоположения на экране 


kk 


Подробнее см. в подразделе «Изменение размеров области спрайт-файла» и раз- 
деле «Создание спрайтов». 


Во всех примерах данного описания предполагается, что загружен именно этот 
спрайт-файл. 
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(координат верхнего левого угла) воспользуемся соответствующи- 
МИ графическими переменными: 


10 .SPN=1: REM Зададим номер спрайта 
20 .ROW=10:.COL=10: REM Определим место в 10-й строке 
и 10-м столбце экрана 


Теперь можно выполнить самый простой и самый популярный 
оператор Laser Basic .PTBL: 


30 .PTBL REM Поместим спрайт на экран 


Вывод на экран части (окна) спрайта 


Если нет необходимости переносить на экран весь спрайт, мож- 
но вывести лишь его часть — окно спрайта. Делает это оператор 
-PWBL. Кроме номера спрайта и координат размещения изобра- 
жения на экране, для работы этого оператора следует задать разме- 
ры и координаты окна спрайта, то есть присвоить требуемые 
значения переменным: „НСТ, .LEN — высота и ширина окна, .SCL — 
левая колонка, .SRW — верхняя строка окна спрайта относительно 
границ спрайта: 

10 .SPN=1:.ROW=15:.COL=15 

20 .HGT=2:.LEN=3: REM Размеры окна спрайта 

30 .SCL=1:.SRW=0: КЕМ Координаты окна спрайта 
40 .PWBL 


Перенос атрибутов 


Описанные выше операторы вывода спрайтов по умолчанию 
переносят на экран и их атрибуты. Но можно и запретить перенос 
атрибутов, выполнив оператор .ATOF. Вновь разрешает перенос 
оператор .АТОМ. Проиллюстрируем на примере: 


10 .ROW=0:.COL=0:.SPN=4:.PTBL: КЕМ Поместим спрайт на экран 
20 .ATOF: REM Запретим перенос атрибутов 

30 .COL=8:.PTBL: REM Выведем «черно-белое» изображение 

40 .ATON: REM Вновь разрешим перенос атрибутов 

50 .COL=16:.PTBL: REM Выведем как прежде — в цвете 


Следует учитывать, что операторы .ATON и .ATOF воздействуют 
не только на вывод спрайтов, но и на все операции типа «спрайт— 
экран» и «экран—спрайт», которые будут описаны ниже. 


Преобразование окна экрана 


Перед тем, как начать гонять спрайт, помещенный на экран, из 
угла в угол, поэкспериментируем с ним, не сдвигая с места. 
Laser Basic обладает широкими возможностями трансформации 
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картинок*. И, что ценно, можно преобразовывать не только все 
экранное изображение, но и его часть, в пределах заданного окна 
экрана. 

Расположение и размеры окон определяются четырьмя гра- 
фическими переменными: .ROW, .COL, „НСТ и .LEN. Если окно 
выходит за пределы экрана, оно автоматически обрезается по его 
размеру. 

Операторы, выполняющие графические преобразования, легко 
узнать по букве V (Video), завершающей ключевое слово. 

Простейший из операторов, преобразующих картинку, — 
-INVV. Он инвертирует изображение в пределах установленного 
окна экрана, то есть меняет цвет фона на цвет тона и наоборот. 

Оператор .MIRV выполняет зеркальное отображение картинки 
в окне относительно его вертикальной оси симметрии. Действие 
этого оператора распространяется только на изображение и не 
затрагивает раскраску (атрибуты) окна. Атрибуты отображаются 
специальным оператором .МАВУ. Приведем пример: 


10 .ROW=1:.COL=1:.LEN=14:.HGT=1: REM Зададим окно 
20 PRINT АТ 1,1; INK 1;"LEFT”: REM Поместим в окно текст 
30 PRINT АТ 1,10; INK 2;"RIGHT” 

40 PAUSE 100:.MIRV: REM Отобразим текст без атрибутов 
50 PAUSE 100:.MARV: REM Теперь отобразим атрибуты 


Laser Basic позволяет уже после создания экранного изобра- 
жения перекрашивать его части. Оператор .SETV присваивает 
всем знакоместам окна текущие (постоянные) атрибуты. 

Ну и, конечно же, можно очистить окно экрана: выполняет это 
действие оператор .CLSV. Он похож на стандартный CLS, только 
действует не на весь экран, а на его часть — окно, и, кроме того, не 
изменяет атрибутов знакомест: 


10 .HGT=3:.LEN=6:.ROW=4: REM Задание окна 

20 PRINT АТ 5,1;"ЮЕО";АТ 5,6;"YELLOW”: REM Вывод в окно 

30 .COL=6: PAPER 6:.SETV: REM Изменение цвета фона в окне 
40 .COL=0: PAPER 2:.SETV: КЕМ Изменение цвета фона в окне 
50 .LEN=12: PAUSE 100:.INVV: REM Инверсия окна 

60 PAUSE 100:.CLSV: REM Очистка окна 


Следующий блок операторов, занятых преобразованием изобра- 
жения, — это операторы, смещающие картинки в окнах экрана на 
заданное число пикселей, то есть производящие скроллинг. 
Laser Basic обеспечивает как простой скроллинг, при котором изо- 
бражение, вытесненное за пределы окна, бесследно пропадает, так 
и циклический, выводящий смещенное за границу окна изобра- 
жение с противоположной стороны. 


Горизонтальный скроллинг изображения (без атрибутов) может 
быть выполнен вправо или влево на фиксированный шаг: 1, 4 и 8 
пикселей. Операторы горизонтального скроллинга .SL1V;, .WLIV, 


x ~ > 
Здесь картинка — не только помещенный на экран спраит, но и построения, вы- 


полненные с помощью Ss salad операторов $рес{гит-Бейсика, тексты, BbIBe- 
денные оператором PRINT и пр. ь 
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SLAV ,.WLAV, .SL8V ,.WL8V, .SR1V, .WRIV, .SR4V, .WRA4AV, .SR8V 
и .WR8V по отдельности описаны в Приложении 1. Ho и без 
подсказки можно легко разобраться, «кто есть кто»: первая буква 
ключевого слова сообщает о виде скроллинга ($ — нормальный, W 
— циклический), вторая — о направлении (Е — левый, R — 
правый), а цифра — о шаге (1, 4 и 8 пикселей). 


Операторов, отвечающих за 
вертикальный скроллинг изобра- 
жения, в Laser Basic лишь два: 
SSCRV выполняет простой скрол- 
линг, .WCRV — циклический. Ma- 
ло? Вполне достаточно, поскольку 
величина и направление сме- 
щения при вертикальном скрол- 
линге залаются — специальной 
графической переменной — .NPX. 
Она может принимать значения от 
—128 до 127. Модуль значения за- 
лает шаг скроллинга в пикселях. 
Направление определяется 3Ha- 
ком: положительное значение со- 
ответствует скроллингу вверх, от- 
рицательное — вниз. 





Горизонтальный и вертикальный скроллинг атрибутов (на це- 
лое знакоместо) выполняется операторами .ATLVY — влево и .АТВУ 
— вправо, .ATUVY — вверх, .АТОУ — вниз. Правда, обеспечивают 
они лишь циклический скроллинг. 

В операциях вертикального скроллинга задействована область 
буфера принтера (см. [1]). И Tak как ее объем ограничен 256 
байтами, то вертикальный скроллинг возможен лишь, если резуль- 
тат перемножения значений графических переменных .NPX и .LEN 
не превышает 256 (в противном случае может произойти сбой 
программы). Непосредственно в программе проверить это условие 
можно следующей строкой: 


LET X=?NPX: LET Y=?LEN: IF ABS (X*Y) <= 256 THEN .WCRV 


Наборы переменных 


Специальная переменная .SET позволяет, единожды задав набор 
переменных, в послелдующем присваивать целой группе графи- 
ческих переменных нужные значения указанием только номера 
набора. Залаются наборы переменных строками типа: 


10 .SET=1:.HGT=5:.LEN=5:.ROW=0:.COL=0: КЕМ Окно 1 
20 .SET=2:.HGT=4:.LEN=5:.ROW=5:.COL=7:.NPX=1: REM Окно 2 и 
параметр вертикального скроллинга .МРХ 


В данном примере наборам графических переменных присвое- 
ны номера 1 и 2. Всего в программе может быть определено 16 
наборов (от 0 до 15). 
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Теперь, чтобы выполнить, например, горизонтальный скрол- 
линг 1-го окна и вертикальный 2-го окна, достаточно задать: 


50 .SET=1:.WR4V:.SET=2:.WCRV 


После выполнения этой строки графические переменные будут 
иметь значения, соответствующие последнему вызванному набору 


номер 2. 
Последний указанный в программе набор переменных ста- 


новится текущим. При изменении графических переменных в 
процессе работы программы модлифицируется текущий набор 
(остальные наборы не меняются). 


Перемещение спрайтов (1-й способ} 





От преобразования картинки в статичном окне до движения 
спрайта — один шаг. Поместим на экран спрайт. Зададим окно, по 
размерам покрывающее спрайт, и произведем скроллинг. Спрайт 
переместится. Как уже упоминалось, при движении по горизон- 
тали игаг может быть 1, 4 и 8 пикселей, по вертикали — троизволь- 
ный. Например, это может выглядеть так (рис. 14): 


10 .SPN=4:.ROW=0:.COL=0 

20 .PTBL: REM Вывод спрайта на экран 

30 .LEN=30:.HGT=4: REM Окно 

40 РОК М=1 ТО 240 

50 .WR1V: REM Скроллинг вправо на один пиксель 
60 МЕХТ М 





Рис. 14. Перемещение спрайта путем скроллинга окна. 


Существенным недостатком такого способа «оживления» спрай- 
тов является то, что перемещение происходит вместе с фоном*. 
Ведь скроллинг захватывает все изображение в окне, не разбирая, 
спрайт ли это или что-то иное. 


Перемещение спрайтов (2-й способ) 


Этот способ лишен недостатков предлылущего. Он основан Ha 
последовательном вызове спрайта на экран оператором .PTBL с 
изменением на единицу значений .ROW и .COL. Меняя одну из 
переменных, заставим спрайт двигаться параллельно границам 


* 
В аи случае словом «фон» мы называем любое изображение, находящееся 
на экране. 
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экрана, меняя обе — по диагонали. Спрайт, перемещаемый таким 
способом, должен иметь по краям пустое пространство шириной в 
одно знакоместо. Иначе спрайт, помещенный Ha экран в предыду- 
щем шаге, не будет затираться следующим выводимым спрайтом, 
и по экрану протянется след. 

Спрайт, изображенный на рис. 15a, можно двигать во всех 
направлениях. Если же заранее известно, что спрайт будет переме- 
щаться, например, только налево, то для скроллинга достаточно 
оставить справа пустую колонку, шириной в одно знакоместо 


(рис. 156). 

Избежав одной неприят- 
ности, возникающей при пе- 
ремещении спрайта скрол- 
| лингом (смещение фона), 
| мы получили другую — 
спрайт, перемещаемый с по- 
мощью оператора — .PTBL, 
затирает фон. 

Справиться с проблемой 
сохранения фона при пере- 
мещении спрайтов можно, 
а} 6) только умело пользуясь опе- 
раторами наложения спрай- 
та на экран по различным 
принципам. 





| 
} 
: 
| 
| 





| знакоместо | 
—яй 


Рис. 15. Подготовка спрайта к 
перемещению. 


Наложение спрайтов 





Laser Basic позволяет помещать спрайт на экран не только при- 
митивным способом, затирая фон (оператор .PTBL), но и по-разно- 
му совмещая картинку спрайта и экранное изображение. Прин- 
ципов совмещения (наложения) три, и обозначаются они по на- 
званиям логических операций: OR, AND и XOR. Реализуют эти 
принципы соответственно три оператора: 


-PTOR — объединяет картинки (остаются включенными пиксели, 
которые были включены либо на экране, либо в спрайте}; 


-PTND — оставляет только совпавшее изображение: пиксели, вклю- 
ченные одновременно и на экране, и в спрайте; 


-PTXR — стирает совпавшее изображение, оставляя все остальное: 
пиксели, включенные либо только на экране, либо только 
в спрайте. 
Проиллюстрируем действие этих операторов программой, вы- 
полняющей наложение спрайта номер 5 на спрайт номер 1: 


10 .ROW=1:.SPN=1 

20 FOR п=0 TO 32 STEP 8:.COL=n:.PTBL: NEXT п 
30 PAUSE 50:.SPN=5, 

40 .COL=0:.PTBL 

50 .COL=8:.PTOR 

60 .COL=16:.PTXR 

70 .COL=24:.PTND 
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Приведенный рисунок 
(рис. 16) поясняет принципы 
наложения спрайтов. 


Кроме операторов Haao- 
жения целых спрайтов в 
Laser Basic имеются HH- 
струкции, осуществляющие Te 
же действия с окнами спрай- ХОР AND OR 
тов: .PWOR, .PWND и .PWXR. 
Действуют OHH аналогичным 
образом, но предварительно 
должны быть определены 
переменные .SRW, .SCL, „НСТ и 
„СЕМ, задающие положение и размеры окна в спрайте. Присваивая 
значения этим переменным, нужно следить, чтобы окно не вы- 
ходило за пределы спрайта, иначе команда не пройдет, хотя сооб- 
щения об ошибке и не появится. Если добавить в предыдущий 
пример строку 

35 .SRW=0:.SCL=0:.HGT=2:.LEN=2 


и в строках с 40-й по 70-ю заменить буквы РТ Ha PW, то по- 
лучившаяся программа проиллюстрирует действие операторов на- 
ложения окна спрайта на экран. 





Рис. 16. Наложение спрайтов по 
различным принципам. 


Перемещение спрайтов (3-й способ) 


После ознакомления с принципами наложения изображения 
можно рассмотреть и способы перемещения спрайтов с сохра- 
нением фона. 

Например, можно предложить слелующую последовательность 
действий: 


1. поместить спрайт на экран оператором .PTXR. Фон при этом 
сохранится, но сам спрайт немного пострадает: в точках пере- 
сечения фона и спрайта образуются «прорехи» (во многих 
случаях это допустимо); 


2. через требуемое время стереть спрайт, вторично выполнив 


оператор .PTXR с теми же значениями графических перемен- 
ных. Фон полностью восстановится; 


3. изменить переменные .ROW и .СОЁ и поместить спрайт в новое 
место опять же оператором .PTXR. И так далее. 


Можно, конечно, проверить работу приведенного алгоритма, но, 
вообще-то, в этом нет необходимости, так как он реализован в 
специально предназначенном для перемещения спрайтов операто- 
ре .MOVE. 


.МОУЕ работает следующим образом: накладывает по принципу 
XOR спрайт с номером, заланным графической переменной .SP2, 
на экран, соответственно, переменным .ROW и .COL. Потом, 
изменив значения переменных .ROW и .COL на величины сме- 
щения, заданные соответственно переменными „НСТ и .LEN, накла- 
дывает по тому же принципу ХОК на новое место спрайт с номе- 
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pom .5Р1. В завершение переменные .SP1 и .SP2 обмениваются 
значениями. 


Для перемещения  спрайта с 
помощью оператора .MOVE перемен- 
ным .SP1 и .SP2 присваивают одинако- 
вые значения, то есть задают один 
спрайт*. Затем помещают оператором 
.PTXR спрайт с этим номером в исход- 
ную точку, заданную .ROW и .COL. Ha 
первом шаге выполнения .MOVE 
спрайт будет стерт, на втором — поме- 
щен на другое место. Далее можно 
еще и еще раз выполнять .MOVE без 
каких-либо дополнительных действий, 
если, конечно, не потребуется изме- 
нить скорость и направление движе- 
ния спрайта. Делается это присвое- 
нием переменным „НСТ и .LEN других 
значений. Приведем пример: 

10 .SP1=5:.SP2=5: REM Перемещать будем спрайт с номером 5 

20 .ROW=0:.COL=0: .SPN=5:.PTXR: REM Поместим его на экран 

30 .HGT=1:.LEN=1: REM Зададим смещение 

40 FOR n=1 TO 15:.MOVE: PAUSE 4: NEXT п: REM Сдвинем на 15 
знакомест по диагонали 





Копирование изображения с экрана в спрайт 





В Laser Basic имеется группа операторов, которые копируют 
изображение с экрана в спрайт (или окно спрайта), то есть поме- 
щают изображение в спрайт-файл, находящийся в памяти. Самый 
употребительный из них — .GTBL, он переносит изображение из 
окна экрана в спрайт с номером, заданным переменной .SPN. 
Остальные операторы этой группы описаны в Приложении 1. 


Перемещение спрайтов (4-й способ) 


Используя оператор копирования изображения из окна экрана 
в память .GTBL, можно реализовать еще один способ перемещения 
спрайтов с сохранением фона. Суть его проста: окно экрана, в 
которое будет помещен спрайт, сохраняется оператором .GTBL в 
буфере (пустом спрайте), после этого предназначенный для пере- 
мещения спрайт выводится на экран оператором .PTOR, а через 
некоторое время (в зависимости от требуемой скорости переме- 
щения) изображение из буфера копируется обратно на экран, 
восстанавливая фон. Далее в буфер помещается изображение из 


* НА 
Можно использовать и разные спрайты, получая, например, «прыгающий» 


спрайт, но это уже высший пилотаж. 
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окна, соответствующего новому | 
положению спрайта, спрайт вы- 
водится в это окно и т. д. Пустой 
спрайт-буфер, по размерам равный 
перемещаемому спрайту, создается 
при формировании спрайт-файла. 

Поскольку для примеров мы 
пользуемся готовым спрайт-фай- 
лом SPRITE2B, то не будем фор- 
мировать пустой спрайт, а «пожерт- 
вуем» спрайтом .SPN=2 — использу- 
ем его в качестве буфера. Размеры 
его равны размерам  спрайта 
.SPN=1. Следующая программа пе- 
ремещает спрайт .SPN=1 слева на- 
право на 10 знакомест с сохране- 
нием фона: 


10 .ROW=0:.LEN=4:.HGT=2: REM Окно в размер спрайта номер 1 
20 .COL=5:.SPN=3:.PTBL: REM Фоном служит спрайт номер 3 

30 FOR N=0 TO 10:.COL=N 

40 .SPN=2:.GTBL: REM Копирование окна с фоном в буфер 

50 .SPN=1:.PTOR: КЕМ Вывод спрайта на экран 

60 PAUSE 10 

70 .SPN=2:.PTBL: REM Восстановление окна 

80 NEXT М: REM Следующий war 





Преобразование спрайтов 


Операторы преобразования спрайтов по своему действию 
аналогичны инструкциям преобразования окна экрана (см. 
стр. 160), но производят изменения не на экране, а в памяти. 
Для того чтобы увидеть действие этих операторов, нужно после 
их выполнения поместить измененный спрайт на экран, 
например, оператором .PTBL. 

Операторы этой группы можно распознать по букве М на конце 
ключевого слова (от англ. Метогу — память). 

Не извлекая спрайт из памяти, его можно инвертировать 
(.INVM), зеркально отображать относительно вертикальной оси 
симметрии (.MIRM), а также зеркально отображать атрибуты 
спрайта (.МАВМ). Предварительно необходимо задать номер пре- 
образуемого спрайта — присвоить соответствующее значение 
переменной .SPN 

Во всех знакоместах спрайта можно установить текущие атрибу- 
ты (.SETM). А можно и полностью очистить спрайт оператором .CLSM. 

Операторы, производящие скроллинг спрайтов в памяти, ана- 
логичны операторам скроллинга окон экрана. Например, .WR1M 
производит циклический скроллинг спрайта в памяти вправо на 1 
пиксель. Нужно только задать номер спрайта в переменной .SPN. 
Операторы скроллинга спрайтов можно найти в Приложении 1. 
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Для работы со спрайтами в памяти существуют и операторы, 
которым нет «экранных» аналогов. Например, можно повернуть 
спрайт на 90°. Оператор .SPNM копирует спрайт с номером .SP1 в 
спрайт .SP2* с поворотом изображения на 90° по часовой стрелке. 
Предварительно второй спрайт (.SP2) должен быть очищен. Особо 
следует обратить внимание на то, чтобы высота второго спрайта 
равнялась ширине первого, а ширина, соответственно, — высоте. 

Оператор .DSPM позволяет прямо в процессе работы программы 
получить в спрайте с номером .SP1 увеличенное в четыре раза 
изображение спрайта .SP2. Естественно, что для успешного выпол- 
нения этой операции высота и ширина спрайта .5Р1 должны быть 
в два раза больше, чем у исходного .SP2. Спрайт .5Р1 предваритель- 
но должен быть очищен. 


Наложения «спрайт—окно спрайта» 


Операторы взаимодействия спрайта с окном другого спрайта 
(напомним, что эти преобразования происходят в памяти) во мно- 
гом похожи на соответствующие инструкции для окон экрана. 
Ключевые слова операторов этой группы начинаются с букв СМ и 
РМ (от англ. Get Memory и Put Memory). Например, операторы .GMBL, 
-GMOR, .GMXR и .GMND переносят или накладывают по различным 
принципам спрайты на окна в других спрайтах, а .PMBL .PMOR, 
-PMXR** и .PMND, наоборот, окно спрайта переносят в «целый» 
спрайт. Номер «целого» спрайта заносится в переменную .$Р1, 
номер спрайта с окном — в .SP2. Размеры окна в спрайте .SP2 He 
задаются: подразумевается, что они равны размерам спрайта .$Р1, 
а координаты окна внутри спрайта .SP2 определяются перемен- 
ными .SCL и .SRW. Необходимо следить, чтобы окно в спрайте не 
«вылезло» за его край, иначе появится сообщение Parameter error. 

Действие операторов этой группы не затрагивает атрибуты. AAA 
перемещения атрибутов в этом случае используются операторы 
.СМАТ и .РМАТ. 


Следует заметить, что при работе инструкций наложения 
«спрайит—окно спрайта» возникает побочный эффект: после вы- 
полнения любой из них запрещается перенос атрибутов для опе- 
раций типа «спрайт-экран» и «экран—спрайт» (то есть авто- 
матически выполняется .ATOF). Поэтому каждый раз нужно вновь 
разрешать перенос атрибутов оператором .ATON. 


В данном случае изображение перемещается из спрайта .SP1 в спрайт .SP2. Ho не 
для всех групп операторов это так. Чтобы предупредить возможную путаницу при 
использовании переменных .SP1 и .SP2, в Приложении 2 дана поясняющая 
таблица (табл. 13). 

Есть одна особенность в работе оператора .PMXR, происходящая, видимо, из-за 
ошибки в Laser Basic. После его использования в программе оператор .PTOR пер- 
вый раз интерпретируется как .PTXR. Обойти эту ошибку можно, например, дваж- 
ды выполнив „РТОК. 


жх 
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Перемещение спрайтов (5-й способ) 


Развивая далее принцип перемещения спрайтов с сохранением 
фона в буфере (см. стр. 166), можно реализовать движение спрайта 
с шагом меньше знакоместа. Эта задача решается с помощью скрол- 
линга спрайта в памяти (шаг скроллинга может быть равным 1, 4 и 
8 пикселей) с выводом спрайта на каждом шаге в одно и то же окно 
экрана. При создании спрайта следует предусмотреть пространство 
для скроллинга — ободок шириной 8 пикселей (см. рис. 15). 


Для примера рассмотрим, как можно реализовать перемещение 
спрайта с номером .SPN=1 слева направо на 10 знакомест с шагом 
в 1 пиксель и сохранением фона*: 


10 .ROW=0:.LEN=4:.HGT=2: REM Окно в размер спрайта номер 1 
20 .COL=5:.SPN=3:.PTBL: REM Фоном служит спрайт номер 3 
30 РОК п=0 ТО 10:.COL=n 

40 .SPN=2:.GTBL: REM Помещение окна с фоном в буфер 

50 .SPN=1:.PTOR: КЕМ Вывод спрайта на экран 

52 FOR m=1 ТО 7:.WR1iM: КЕМ Скроллинг спрайта в памяти 
54 .SPN=2:.PTBL: КЕМ Восстановление окна из буфера 

55 .SPN=1:.PTOR: КЕМ Печать сдвинутого спрайта 

56 PAUSE 10: NEXT т 

58 .WRIM:.WL8M: КЕМ Восстановление спрайта 

60 PAUSE 10 

70 .SPN=2:.PTBL: REM Восстановление окна из буфера 

80 МЕХТ п 


Скроллинг пейзажа 


Перемещение на заднем плане какого-нибудь фонового рисун- 
ка (пейзажа) настолько часто встречается в играх, что есть смысл 
рассмотреть отдельно способы реализации этого приема. Проще 
всего организовать скроллинг протяженного пейзажа, прокручи- 
вая спрайт длиной в несколько экранов**. 

Если шаг скроллинга — знакоместо (или несколько знакомест), 
то особых проблем не возникает. Такой вид скроллинга позволяет 
прокручивать изображение с атрибутами, хотя и не обеспечивает 
плавности движения. AAA примера рассмотрим перемещение пей- 
зажа высотой 3 строки и длиной 96 знакомест. Допустим, что 
спрайт с изображением пейзажа имеет номер 1 (отметим, что в 
спрайт-фаиле SPRITE2B такой спрайт отсутствует): 


10 .SRW=0:.HGT=3:.ROW=10:.SPN=1: REM Начальные параметры 
20 .COL=0:.PTBL: КЕМ Вывод первых 32 столбцов пейзажа 


Правда, пример дает лишь трио представление о данном способе, 
поскольку у выбранного спрайта, как и у всех других в спрайт-файле SPRITE2B, 
отсутствует ободок. 


О том, как его создать, см. в разделе «Создание спрайтов» на стр. 185. 


169 


LASER BASIC 


30 FOR n=32 TO 96 

40 .COL=0:.LEN=32:.SL8V:.ATLV: REM Скроллинг окна влево 

50 .COL=31:.LEN=1:.SCL=n:.PWBL: REM Вывод п-го столбца спрайта 
в 31-й столбец экрана 

60 МЕХТ п 


Чтобы обеспечить перемещение пейзажа с шагом меньше зна- 
коместа, придется применить небольшую хитрость. Нужно сделать 
31-й столбец невидимым: задать в нем одинаковый цвет фона 
(PAPER) и тона (INK). Добавим к прелылущему примеру 15-ю строку 
и изменим 40-юи 50-ю: 


15 .COL=31:.LEN=1: PAPER 7: INK 7:.SETV: REM Обесцвечивание 
31-го столбца 

40 FOR т=1 TO 8: .COL=0:.LEN=32:.SL1V: NEXT т: REM 
Скроллинг с шагом в 1 пиксель 

50 .COL=31:.LEN=1:.SCL=n:.ATOF:.PWBL:.ATON: КЕМ Вывод п-го 
столбца спрайта в 31-й столбец экрана 


Если скроллинг идет вправо, то «скрытое» окно организуется у 
левого края экрана. 


Изменение размеров области спрайт-файла 


Для того чтобы было понятно дальнейшее изложение, скажем 
несколько слов о структуре спрайт-файла и его расположении в 
памяти (см. также распределение памяти интерпретатора 
Laser Basic: табл. 10 на стр. 178). Интерпретатор Laser Basic опре- 
деляет, в каком месте находится спрайт-файл, по содержимому 
специальных ячеек памяти. Ячейки 62464/65 содержат адрес 
нижней границы спрайт-файла (в дальнейшем мы будем называть 
его START), а 62466/67 — адрес верхней (END). Следовательно, 
адреса границ спрайт-файла можно определить так: 


LET START=PEEK 62464+256*РЕЕК 62465: PRINT START 
LET END=PEEK 62466+256*PEEK 62467: PRINT END 


Верхняя граница (END) обычно выбирается равной 56575 (и 
лучше всего ее не менять). В ячейке с адресом END всегда должен 
быть записан ноль — метка конца спрайт-файла. В противном 
случае могут возникнуть неприятные сюрпризы. Нижняя граница 
(START) — плавающая, она зависит от размера спрайт-файла. 


Объем памяти (в байтах), занимаемый одним спрайтом, pac- 
считывается по формуле: 


9x .HGTx .LEN+5 


— rae .HGT и .LEN — высота и ширина спрайта в знакоместах. 
Формат хранения спрайта в спрайт-файле приведен в табл. 6 
(адреса увеличиваются снизу вверх} 
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Таблица 8. Формат хранения спрайта в памяти. 


данные об атрибутах спрайта 
данные о состоянии пикселей спрайта 







„НСТх.1ЕМ байт 
8x .HGTx.LEN байт 








Laser Basic позволяет в процессе работы программы расширять 
область спрайт-файла: резервировать место для нового спрайта и, 
наоборот, «выбрасывать» спрайты из этой области. 

Чтобы расширить область спрайт-файла для нового спрайта, 
нужно после задания номера спрайта, его высоты и ширины 
(переменные .SPN, „НСТ и .LEN) выполнить один из операторов: 
ASPR или .SPRT. Они отличаются друг от друга тем, что .ISPR 
расширяет область спрайт-файла за счет понижения его нижней 
границы, a .SPRT — повышения верхней. Обратим внимание на TO, 
что этими операторами только резервируется место под новый 
спрайт, а само изображение нужно записывать в спрайт-файл с 
помощью оператора .GTBL. 

При создании спрайта с уже существующим номером с по- 
мощью оператора .SPRT старый спрайт уничтожается и замещается 
новым. Оператор же .ISPR в этом случае просто не выполняется. 
Поэтому перед использованием .ISPR нужно убедиться в отсутствии 
спрайта с заданным номером (0 том, как это сделать, будет сказано 
позже). Если же спрайт существует, то его следует предварительно 
уничтожить оператором .DSPR или .WSPR (о них будет рассказано 
в этом разделе). 

Расширение области спрайт-файла требует особой осторожнос- 
ти. Необходимо следить, чтобы нижняя граница спрайт-файла 
(START) не пересекла RAMTOP и не испортила бейсик-программу, а 
верхняя (END) не затерла коды интерпретатора, начинающиеся с ад- 
реса 56576. Напомним, что адрес КАМТОР можно определить так: 


LET КАМТОР=РЕЕК 23730+256*PEEK 23731: РАМТ RAMTOP 


Приведем пример создания спрайта в спрайт-файле: 


10 .SPN=240:.PTBL: КЕМ Такого спрайта еще нет 

20 CLEAR 50289: КЕМ Опустим КАМТОР 

30 .HGT=1:.LEN=1:.SPN=240:.ISPR: REM Создадим его 
40 .SPN=240:.PTBL: REM И выведем на экран 


При выполнении 10-й строки компьютер выдаст сообщение об 
ошибке Рагатефег еггог (ошибочный параметр) и будет прав: спрай- 
та с номером 240 в спрайт-файле SPRITE2B нет. Выполнив GO TO 20, 
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убедимся, что все в порядке — спрайт создан, хотя информации в 
нем нет (точнее, она случайная). 


Чтобы удалить спрайт номер .SPN из области спрайт-фаила, 
существуют операторы .DSPR и .WSPR. Олин, соответственно, CABH- 
гает нижнюю границу спрайт-файла, другой — верхнюю. 


Иногда может возникнуть необходимость переместить спраит- 
файл в памяти, к примеру, чтобы зарезервировать пространство 
между верхней границей области спрайтов и началом интерпрета- 
тора под какие-либо подпрограммы в кодах. AAW этих целей служит 
оператор „ВЕСТ. Перел его выполнением нужно присвоить зна- 
чение специальной переменной .MLN, залающей смещение 
спрайт-файла (в байтах}. Теоретически эта переменная может 
принимать значения из интервала от 0 до 65535. Реально же 
нужно следить, чтобы перемещаемый спрайт-файл не попал в 
«жизненно важные» области памяти. Если спрайты нужно пере- 
местить вверх, то необходимо .MLN приравнять величине сме- 
щения. Если вниз, то .MLN должна равняться 65536—‹смещение>. 


Вспомогательные графические операторы и функции 


Операторы и функции данной группы сами не выполняют 
преобразований графических объектов, но имеют к этому непос- 
редственное отношение. 

Оператор .ADJV «обрезает» переменные „НСТ и .LEN так, чтобы 
окно, заданное значениями .ROW, .COL, .НСТ и .LEN, не выходило 3a 
границы экрана. Оператор .ADIJV выполняет действия, эквивален- 
тные работе слелующей программки: 


10 LET h=?HGT: LET I=?LEN: LET r=?ROW: LET c=?COL 
20 IF r+h>24 THEN .HGT=24—r 
30 IF c+l>32 THEN .LEN=32-I 


Оператор .ADJM изменяет значения графических переменных 
„НСТ, .LEN, .5СЁ и .SRW таким образом, чтобы спрайт (или окно 
спрайта) при переносе на экран не выходил за его пределы. К 
примеру, если выполнить строку 


10 .SPN=1:.ROW=1:.COL=31:.ADJM 


— то переменная .LEN примет значение 1, так как на экране может 
поместиться только одна колонка спрайта. 


Функция 1$СУ проверяет знакоместо экрана, заданное перемен- 
ными .ROW и .COL, на наличие изображения. Если в тестируемом 
знакоместе есть включенные пиксели, то после выполнения прог- 
раммной строки 


LET S=?SCV 


переменной $ присваивается ненулевое значение. Если знакоме- 
сто пусто, функция возвращает ноль. 


Функция 1$СМ таким же образом проверяет спрайт с номером 
.SPN. Понятно, что любой непустой (содержащий изображение) 
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сйрайт имеет вхлюченные пиксели и функция возвратит ненуле- 
вое значение, если же спрайт пустой — ноль. 


С помощью функции !TST можно выяснить некоторые парамет- 
ры спрайта. Для этого задается номер проверяемого спрайта (.SPN) 
и выполняется строка 


LET W=?TST 


Если спрайт с указанным номером существует, то переменной 
W присваивается значение адреса его расположения в памяти, а 
графическим переменным „НСТ и .LEN — значения размеров 
спрайта. При отсутствии тестируемого спрайта переменной W 
присваивается нулевое значение, а в переменных „НСТ и .LEN 
может оказаться все что угодно. 


Определение столкновений спрайтов 


Одна из часто встречающихся задач при создании 
динамических игр — это определение факта столкновения спрай- 
тов. В Laser Basic для этого используются уже описанные функции 
‘SCV и 3$СМ. 


Сначала рассмотрим наиболее простую задачу: как определить 
столкновение спрайта не с конкретным объектом, а с любой кар- 
тинкой-препятствием на экране: 


10 PRINT АТ 10,20;"5ТОР": REM Создание препятствия на экране 
100 .ROW=10:.COL=0:.SPN=1:.PTBL: КЕМ Вывод на экран спрайта 
110 FOR п=1 TO 25:.HGT=0:.LEN=1:.SP1=1:.SP2=1 
120 .MOVE: GO SUB 130: NEXT п: REM Перемещение спрайта 
125 STOP 
130 LET c=?COL: REM Сохранение значения переменной .COL 
140 .COL=c+4: LET crash=?SCV: REM Проверка знакоместа перед 

спрайтом на наличие включенных пикселей 
150 IF crash=0 THEN .COL=c: RETURN: КЕМ Если препятствие не 
обнаружено, то .COL присваивается исходное значение 
1000 ВЕЕР 1,1: КЕМ Столкновение 


Сложнее определить столкновение спрайта с конкретным объ- 
ектом. В слелующем примере в качестве такого объекта используется 
спрайт .SPN=2. К программе, фиксирующей в предыдущем примере 
факт столкновения, добавлены строки 200...240. В них происходит 
сравнение объекта, с которым произошло столкновение, и спрайта 
.5РМ=2. Спрайт .SPN=5 используется в качестве буфера. Его размеры 
должны быть равны размерам спрайта .SPN=2. 


200 .SPN=5: LET T=?TST:.GWBL: REM Копирование препятствия в бу- 
фер 

210 .SP1=5:.SP2=2 

220 .PMXR: КЕМ Наложение изображения заданного объекта на 
содержимое буфера по принципу ХОК 

230 LET crash=?SCM: REM Проверка буфера на наличие включен- 
ных пикселей 
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240 IF crash<>0 THEN .COL=c: RETURN: REM Если включенных 
пикселей нет (crash=0), значит заданный объект и препятствие 
совпадают 

1000 ВЕЕР 1,1: REM Столкновение с заданным объектом 


В этом примере факт столкновения зафиксирован не будет, 
поскольку препятствие на экране не совпадает со спрайтом .SPN=2. 
Но если теперь заменить 10-ю строку на 


10 .ROW=10:.COL=20:.SPN=2:.PTBL 
— то столкновение произойдет. 


В приведенных примерах предполагалось, что столкновение 
спрайтов происходит на чистом экране. Для решения усложнен- 
ной задачи — определения столкновения спрайтов на неком фоне, 
перел проверкой совпадения спрайтов необхолимо содержимое 
буфера очистить от фона, наложив на буфер спрайт .SP2=2 по 
принципу AND (например, оператором .PMND), а после этого уже 
выполнить оператор .PMXR в строке 220. 


Сервисные операторы и функции 


Инструкции, описанные в этом разделе, расширяют возмож- 
ности эресиат-Бейсика и не имеют никакого отношения к преоб- 
разованию графических объектов. 

Функция ЗКВЕ используется для контроля нажатия конкретной 
клавиши. Как и все другие функции Laser Basic, она может ис- 
пользоваться только в строке типа 


LET b=?KBF 


КВЕ возвращает ненулевое значение, если в момент выпол- 
нения оператора LET была нажата проверяемая клавиша. 

Клавиша, на нажатие которой будет реагировать функция, зада- 
ется переменными .ROW и .СОЁ в соответствии с табл. 9. 


Таблица 9. Задание клавиши для опроса функцией IKBF. 
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Приведем пример программки, ожидающей нажатия клавиши К: 


10 .ROW=7:.COL=3: КЕМ Указываем клавишу 
20 LET s=?KBF: IF $=0 THEN GO ТО 20: REM Цикл ожидания 
30 BEEP 1,1: REM Дождались 


Оператор .POKE addr,x является 16-битовой версией оператора 
бреснит-Бейсика POKE*: он записывает двухбайтовое число x в 
последовательно расположенные ячейки памяти с адресами addr и 
addr+1, то есть эквивалентен инструкциям 


POKE addr,INT(x/256): POKE(addr+1),x—INT(x/256) 


Нетрудно догадаться, что функция }PEK — это 16-битовый aHa- 
лог функции РЕЕК стандартного Бейсика. Она возвращает зна- 
чение ABYXOaHTOBOTO числа, записанного в двух ячейках памяти: 
адрес первой равен аргументу функции, адрес второй на единицу 
больше. Например, оператор 


LET х=?РЕК 23606 


эквивалентен 


LET х=РЕЕК 23606+256*PEEK 23607 


Laser Basic позволяет осуществлять отладку (трассировку} прог- 
рамм: оператор .ТВОМ включает пошаговое выполнение програм- 
MbI**. Во время трассировки на экран выводится текст выполняе- 
мой в данный момент строки. Эта особенность резко сужает сферу 
применения оператора .TRON, так как после выполнения не- 
скольких операторов весь экран заполнится строчками листинга 
программы. Отключается трассировка с помощью оператора .TROF. 
Оба описываемых оператора могут находиться только в тексте 
программы, ввод их с клавиатуры не вызовет никакого действия. 


Оператор .ВМУМ М, М, $ перенумеровывает строки программы: 
строке М присваивается номер М, следующей строке M+S ит. д. (по 
умолчанию параметр $ принимается равным 10). Так, например, 
.RNUM 1, 20, 15 перенумерует все строки программы с шагом 15, 
первой строке будет присвоен номер 20. При этом соответству- 
ющим образом заменяются параметры операторов GO TO, GO SUB и 
RESTORE, но только в TOM случае, если они представляют собой 
численные значения, а не выражения. Если использовать 
.RNUM без параметров, то у первой строки номер не меняется, а 
последующие перенумеруются с шагом 10. 


Оператор .REMK AAA уменьшения объема памяти, занимаемой 
программой, удаляет из нее комментарии (все операторы REM и 
слелдующие за ними тексты). Необходимо быть осторожным при 


Как видно, формат .РОКЕ не стандартен для Laser Basic — его параметры переда- 
ются не через графические переменные, а непосредственно вслед за ключевым 
словом. 


Пошаговый режим означает, что после выполнения каждого оператора ожидается 
нажатие любой клавиши для продолжения трассировки. 


kk 
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использовании этого оператора в программах, обращающихся к 
лисководу. Иначе вместо строчки 


RANDOMIZE USR 15619: REM: LOAD "МАМЕ" CODE 
можно получить 
RANDOMIZE USR 15619 


Процедуры 





Laser Basic не только расширяет графические возможности 
стандартного Зресиит-Бейсика, но и дополняет его новыми сред- 
ствами структурного программирования: инструментом процедур. 


Процедура — это, по сути дела, подпрограмма, имеющая свои 
собственные внутренние переменные, называемые локальными. 
Значения локальных переменных в процессе выполнения проце- 
дуры могут меняться, но при выходе из процедуры им возвраща- 
ются значения, которые они имели в основной программе. А 
главное, посредством локальных переменных в процедуру переда- 
ются необходимые параметры. Таким образом, процедура, в OT- 
личие от подпрограммы, позволяет создавать независимые струк- 
турные блоки, которые можно использовать в других программах, 
не боясь «конфликта переменных». 

Процедуры отличаются от подпрограмм также способом их оп- 
ределения и вызова. В Laser Basic каждой процедуре присваивает- 
ся имя: буква латинского алфавита со знаком $ или без него (всего 
возможно 52 имени). Определяются процедуры в любом месте 
программы оператором DEF FN с именем процедуры (набирается 
DEF FN способом, принятым для 5респит-Бейсика, клавишами 
CS/SS+SS/1)*. А чтобы различить процедуру и функцию, определя- 
емую пользователем, после имени процедуры ставится знак $. 
Например: DEF FN А# или DEF FN а$#. 

Блок программы, оформляемый как процедура, начинается с 
так называемого заголовка процедуры, который может выглядеть, 
например, так: 


100 DEF FN A#(x,y,z,a$,b$) 

В заголовке после имени процедуры в скобках** приводится 
перечень формальных параметров, то есть числовых и строковых 
переменных, с которыми надлежит работать процедуре. Формаль- 
ными параметрами не могут быть массивы. 

В процедуре могут использоваться и переменные, не указанные 
в списке. Такие переменные называются глобальными. При выходе 
из процедуры им не будет возвращено значение, которое они 
имели при входе в нее. 


Отметим, что выполнение процедур, как и функций, заданных пользователем, 
происходит тем быстрее, чем ближе к началу программы расположено их опреде- 
ление. 

Скобки в описании процедуры должны стоять даже при отсутствии передаваемых 
параметров. 
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Текст процедуры должен оканчиваться оператором .RETN (ана- 
лог RETURN). 

Процедуры вызываются оператором .PROCFN с указанием вслед 
за ним имени процедуры и, в скобках, списка фактических пара- 
метров, то есть значений всех переменных, упомянутых в заголов- 
ке процедуры. Набирается этот оператор необычным способом: 
первая его часть (.PROC) — по буквам, a FN — как в Spectrum- 
Бейсике (CS/SS+SS/2). 

Описание процелуры может включать в себя и вызов другой 
процедуры, но при этом надо помнить, что значения локальных 
переменных для внутреннего вызова распространяются и на 
внешний вызов, то есть эти переменные «не до конца локальны». 


Рассмотрим несколько примеров. Вот так будет выглядеть опре- 
деление процедуры, выводящей на экран слово НЕЁР!: 


100 DEF FN a$#() 
200 PRINT “HELP!” 
300 .RETN 


Вызывается она просто: 
50 .PROCFN a$#() 


Можно сделать так, чтобы процедура выводила любой текст в 
заданном месте: 


100 DEF FN a$#(x,y,b$) 
200 PRINT AT x,y;b$ 
300 .RETN 


После определения этой процедуры AAA печати, например, CAO- 
Ba LASER с 8-й позиции 5-й строки, в программу достаточно 
вписать: 


50 .PROCFN а$#(5,8,"ГАЗЕВ”) 


Загрузка и запись программ 


Программы, написанные в интерпретаторе Laser Basic, могут 
быть загружены и записаны как в непосредственном режиме, так 
и из программы. Причем, если запись производилась из програм- 
мы, то и загрузка должна происходить из программы. И, наоборот, 
программы, записанные в непосредственном режиме, могут быть 
загружены только с клавиатуры. 


Запись программ без автостарта осуществляется операторами: 


SAVE "МАМЕ" (для ленты), 
RANDOMIZE USR 15619: REM: SAVE "МАМЕ" (для диска). 


Запись программы с автостартом со строки М осуществляется 
операторами: 


SAVE "МАМЕ" LINE М (для ленты), 
RANDOMIZE USR 15619: REM: SAVE "МАМЕ" LINE М (для диска). 


177 


LASER BASIC 


При запуске записанная таким образом программа должна AO 
встречи какого-либо оператора Laser Basic выполнять один из пе- 
речисленных операторов: 


RUN, GO ТО или GO SUB (лля ленты) 
RANDOMIZE USR 58841 и RUN, GO ТО или GO SUB (для дисковода} 


Ниже приведен пример загрузчика, который подгружает интер- 
претатор Laser Basic, программу и спрайт-файл: 
10 CLEAR START—1: REM Установка RAMTOP на 1 байт меньше, 
чем нижняя граница спрайт-файла 
20 LOAD "ГАЗОВ" CODE: REM Загрузка кодов интерпретатора 
_ 30 LOAD "LASLOBJ" CODE 
40 RANDOMIZE USR 62464 
50 LOAD "GRAPH” CODE 
60 RANDOMIZE USR 58841: КЕМ Запуск интерпретатора 
70 LOAD "имя” CODE START: КЕМ Загрузка спрайт-файла 
80 GO ТО 90: REM Выполнение оператора перехода (необходимо 
перед первой командой Laser Basic) 
90 .РОКЕ 62464,START:.POKE 62466,56575: REM Заполнение ячеек, 
хранящих адреса START и END 
100 РОКЕ 56575,0 


Если в программе не используется спрайт-файл, то выбрасыва- 
ются строки 70 и 90, а 10-я заменяется на 


10 CLEAR 56574 


В заключение описания интерпретатора Газег Ваз1с представим 
распределение памяти при его использовании (табл. 10). 


Таблица 10. Распределение памяти при работе с интерпретатором. 


Р_КАМТ (23732) Ыыыы 65535 
Интерпретатор Laser Basic 
END (62466/67) ————————————ы—ы—-[--—-———— 56575 
Область спрайт-файла 
START (62466/67) 


RAMTOP=START-1 (23730) 


E_LINE (23641) 
Переменные Бейсика 
VARS (23627) 
Бейсик-программа 
PROG (23635) 
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В этом разделе мы расскажем о двух программах — генераторах 
спрайтов: Sprite Generator (SPTGEN) из фирменного пакета 
Laser Basic и Spriter*, написанной автором этой главы. Обе прог- 
раммы предназначены для создания спрайт-файла — кодового 
файла, содержащего набор спрайтов, готовых для использования в 
Laser Basic. 


Основное различие описываемых генераторов спрайтов в TOM, 
что фирменная программа SPTGEN ориентирована на создание 
изображения «с нуля» по точкам, a Spriter позволяет использовать 
для этого готовые картинки, нарисованные в любом графическом 
редакторе для ZX Spectrum (Art Studio, Artist П и другие) или даже 
позаимствованные из фирменных «игрушек». Как нам кажется, в 
этом смысле Spriter удобнее, так как специальные графические 
редакторы обладают гораздо большими возможностями AAA 
формирования картинок, чем SPTGEN. Кроме того, SPTGEN 
позволяет создавать спрайты с максимальным размёром только 
15х15 знакомест, a Spriter — 32х22, то есть почти во весь экран. 
Олнако у каждого свой вкус, поэтому мы подробно опишем обе 
программы. 


Программа SPTGEN 





Фирменный генератор спрайтов, по сути, является примитив- 
ным графическим редактором. Процесс создания спрайт-файла с 
помощью SPTGEN выглядит так: 


1: оперируя клавиатурой, пользователь создает рисунок одного 
знакоместа; 


2. рисунок знакоместа помещается в спрайт; 


as построенный из отдельных знакомест спрайт записывается в 
память, 


4. несколько спрайтов сохраняются в виде спрайт-файла на 
диске или ленте. 


Загружается спрайт-генератор оператором LOAD "SPTGEN”. В 
нижней строке экрана появляется запрос: COLD OR WARM START? 
(«холодный» или «теплый» старт:). При «холодном» старте прог- 
рамма запускается «с нуля», то есть очищается область спрайт- 
файла. «Теплый» старт используют для продолжения работы после 
случайного или намеренного выхода из SPTGEN в Бейсик. В этом 
случае нужно выполнить оператор СО ТО 2 и выбрать «теплый» 
старт, нажав клавишу М. Таким образом можно сохранить в па- 
мяти спрайт-файл (но не экранную картинку, ее придется рисо- 
_ вать заново). 


Программа Spriter написана на языке Laser Basic, и сама по себе может служить 
примером использования некоторых его возможностей. 


179 





LASER BASIC 





Сразу после загрузки программы нужно осуществить «холод- 
ный» старт, то есть нажать клавишу С. Затем на новый запрос: 
COLD START (Y/N), чтобы подвердить «температуру старта», придет- 
ся нажать клавишу У. Программа SPTGEN вообще очень HeAo- 
верчива и постоянно требует от пользователя подтверждения его 
действий. Наконец, после окончания диалога, на экране появится 
картинка (рис. 17). 

Колонка Активное окно 
текущих 


РЕ 
атрибутов ^^ a 
ВЫ Зы Saige 












` Курсоры 


увеличенное 


знакоместо — Рабочее поле 


Информацион- 


| ные строки 
es | 





Рис. 17. Рабочий экран генератора спрайтов SPTGEN. 


Большой квадрат размером 15х15 знакомест в правом верхнем 
углу — это рабочее поле, в котором формируется спрайт. Спрайт с 
заданным номером будем называть текущим спрайтом. В правом 
верхнем и левом нижнем углах рабочего поля мигают два курсора: 
вертикальный и горизонтальный. Знакоместо, расположенное на 
пересечении этих курсоров, назовем активным знакоместом. Его 
увеличенное изображение, именуемое увеличенным знакоместом, 
находится левее рабочего поля. В рабочем поле выделяют активное 
окно, верхний левый угол которого совпадает с активным знакоме- 
стом, а ширина и высота задаются соответствующими командами. 
Еще левее — столбец текущих атрибутов. Внизу размещены 
информационные строки: 


МЕМОКУ LEFT — свободный объем памяти 
для размещения спрайтов (в байтах); 
Х POS, У POS — горизонтальная и вертикальная координаты 
курсора рабочего поля (1...15); 
SPRITE — начальный адрес размещения 
в памяти текущего спрайта; 
SPRITE HIGHT — высота активного окна (в знакоместах}; 
SPRITE LENGHT —-— ширина активного окна (в знакоместах}); 
SPST — начальный адрес спрайт-файла в памяти 


(сразу после загрузки — 65279); 
РМО — конечный адрес спрайт-файла; 
SPRITE NUMBER — номер текущего спрайта (1...255). 
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Теперь более подробно расскажем о TOM, как работать с програм- 
мой SPTGEN. 


Создание и редактирование изображения в увеличенном знакоме- 
сте. Перед началом создания новых спрайтов желательно подгото- 
вить на разграфленном листе бумаги «проекты» их изображений. 
Это намного упростит и ускорит работу. Ведь в SPTGEN спрайты 
строятся из отдельных кирпичиков — знакомест, и удержать в голо- 
ве весь «проект» (то есть как будет выглядеть спрайт целиком} доста- 
точно сложно. Прорисовка знакомест идет в увеличенном знакоме- 
сте: клавишами 5, 6, 7, 8 выбирается требуемый пиксель, клави- 
шами 9 и 0 OH, соответственно, включается и выключается. 

Перенос изображения на рабочее поле. Копирование увеличенно- 
го знакоместа в активное знакоместо осуществляется по команде 
(клавише) J. Позиция активного знакоместа устанавливается кла- 
вишами SS/5, 55/6, SS/7, SS/8. По команде К ранее созданное 3HAKO- | 
место возвращается на редактирование, либо по команде @ стирает- 
ся. При желании можно очистить и все рабочее поле (SS/Q). 

Метод прямого ввода данных. Создать элемент изображения 
спрайта можно, и не прибегая к построениям в увеличенном 
знакоместе. После нажатия клавиши О программа SPTGEN позво- 
ляет последовательно, по нажатию Enter, ввести восемь значений: 
восемь байт данных, соответствующих одному знакоместу (как при 
построении символов, определяемых пользователем). Значения, 
естественно, должны лежать в пределах 0...255 (десятичные) или 
HOO...HFF (шестнадцатеричные). Изображение побайтно перено- 
сится в активное знакоместо рабочего поля. 

Управление атрибутами. При переносе изображения из уве- 
личенного знакоместа на рабочее поле и обратно ему (изобра- 
жению} могут присваиваться текущие атрибуты, а могут и не 
присваиваться — все зависит от того, какой режим был задан: 
нажатие клавиш A, затем 1 (то есть А+1)} разрешает перенос ат- 
рибутов, А+0 — запрещает. 

Значения текущих атрибутов устанавливаются клавишами Х 
(цвет тона: О0...7), С (цвет фона: О0...7), В (яркость: 0, 1) и У 
(мерцание: 0, 1). Кроме такого последовательного способа опреде- 
ления текущих атрибутов, в процессе работы их можно изменить 
все одновременно, присвоив им значения атрибутов активного 
знакоместа (клавиша U). Возможна и обратная операция: запол- 
нение активного знакоместа текущими атрибутами (клавиша I). 

Операции в активном окне. В процессе создания спрайта его 
изображение на рабочем поле можно трансформировать. Опе- 
рации над изображением осуществляются в пределах активного 
окна, верхний левый угол которого определяется положением ак- 
тивного знакоместа, то есть курсорами рабочего поля, а высота и 
ширина задаются, соответственно, командами Н (1...255) и 
Г. (1...255). Границы активного окна постоянно на экране не отоб- 
ражаются, но их всегда можно увидеть, удерживая клавишу Е, — 
изображение в пределах окна начинает мерцать. 

Из всевозможных операций над изображением в SPTGEN ре- 
ализованы лишь самые элементарные: циклический скроллинг 
вправо, влево, вверх и вниз (команды, соответственно, 55/1, SS/T, 
SS/U и SS/Y), инверсия (клавиши Et+1), зеркальное отображение 
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картинки (E+2) и атрибутов (Е+3) относительно вертикальной OCH 
окна. 

Запись спрайта. Спрайт с текущим номером записывается в 
память (в спрайт-файл) нажатием клавииги С. Размеры его опреде- 
ляются границами активного окна. Перед записью необходимо 
проверить правильность совмещения окна с изображением (кла- 
виша Е). 

Изменение номера текущего спрайта осуществляется по коман- 
де $ (1...255). Если указывается уже существующий номер, будет 
выдано сообщение о совпадении номеров. 

При записи по команде С ранее существующий в спрайт-файле 
спрайт с текущим номером заменяется новым. При необходимости 
изображение старого и созданного спрайтов можно совместить. 
Делается это с помощью команды О, реализующей три принципа 
наложения: ОК, XOR и AND (см. стр. 164), которые задаются, 
соответственно, нажатием одной из клавиш: 1, 2 или 3, после О. 

Изображение с рабочего поля может переноситься в память как 
с текущими атрибутами, так и без них, в зависимости от того, 
разрешен или запрещен перенос текущих атрибутов (команда А+1 
или А+0). 

Проверить правильность записи спрайта в память или вызвать 
его на редактирование можно клавишей Р. По этой команде те- 
кущий спрайт из памяти копируется в активное окно. 

С помощью нажатия клавиши Space можно наложить изобра- 
жение активного окна на спрайт с текущим номером. Конечно, это 
возможно, только если размеры окна меньше размеров спрайта в 
памяти. Команда запрашивает координаты знакоместа в спрайте, 
куда будет наложено изображение (INPUT COLUMN, INPUT ROW). 
Принцип наложения задается нажатием одной из клавиш: 


1 — окно перемещается в спрайт, затирая фон; 
2 -— наложение по принципу OR; 

3 -— наложение по принципу ХОК; 

4 -— наложение по принципу AND. 


При необходимости можно создать и пустой спрайт с шириной 
и высотой, заданными пользователем в интервале от 1 AO 255 
знакомест (команда SS/C). Размеры спрайта вводятся на запросы 
INPUT LENGHT, INPUT HIGHT. 

Преобразование спрайтов в памяти. SPTGEN позволяет TpaHc- 
формировать спрайты не только на экране, но и в памяти. Коман- 
да М выполняет тот же минимум преобразований с текущим 
спрайтом в памяти, что и команда Е с изображением в активном 
окне: инверсия (М+1), зеркальное отображение изображения (М+2) 
и атрибутов (М+3) относительно вертикальной оси окна. 

Кроме того, программа предоставляет возможность скопировать 
текущий спрайт, повернутый на 90°, в спрайт с другим номером — 
команда В. Номер второго спрайта вводится на запрос программы. 

По команде W происходит удаление из спрайт-файла текущего 
спрайта. При этом все спрайты, находящиеся в памяти ниже 
изъятого, поднимаются вверх, занимая свободное пространство. 

Команда тестирования спрайтов Т (аналогичная функции ?TST) 
выводит на экран параметры текущего спрайта: в графы “SPRITE 
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HIGHT и SPRITE LENGTH — его высоту и ширину, в графу SPRITE — 
адрес его размещения в памяти. 

Запись и загрузка спрайт-файла. После создания спрайт-файла 
можно записать его ‘на ленту или диск, нажав клавиши SS/S. 
Программа выдаст запрос о формате записи (OPTION! — OPTION2), 
в ответ на который требуется нажать клавишу 1 или 2: 


1 - спрайт-файл записывается в формате, допускающем пос- 
ледующую загрузку файла в SPTGEN и редактирование, но 
исключающем возможность использования его в програм- 
мах Ha Laser Basic; 


2 — спрайт-файл записывается в формате для использования в 
программах, но его уже «не возьмет» генератор спрайтов. 


После задания формата записи спрайт-файла на соответству- 
ющий запрос вводится его имя. Нужно нажать одну из пяти кла- 
Bu: 1, 2, 3, 4, и 5. Соответственно, спрайт-файл запишется под 
именем "1", "2" ит. д. 

Перед записью в информационной строке появится сообщение 
о нижней границе спрайт-фаила: 


FILE = М ADDRESS = ХХХХХ 


— rae М — имя (номер) спрайт-файла, а ХХХХХ — его нижняя 
граница (START). Это значение следует запомнить: именно его 
необходимо вводить при загрузке спрайт-файла с помощью прог- 
раммы-диспетчера Газет. 

После записи спрайт-фаила автоматически выполняется опера- 
тор сравнения VERIFY. Если при сравнении произойдет сбой, прог- 
рамма «вываливается» в Бейсик. AAA возврата в SPTGEN с сохра- 
нением спрайт-файла нужно выполнить оператор GO ТО 100. 

Загружаются спрайт-файлы с ленты или диска по команде SS/J. 
После нажатия клавиши программа выдаст серию запросов: 


LOAD SPRITES FROM TAPE (Y/N) (загрузить с ленты?) 
LOAD SPRITES FROM DISK (Y/N) (загрузить с диска?) 
INPUT SPRITE FILE (1—5) (введите имя спрайт-файла) 


После загрузки спрайт-файла находящиеся в памяти спрайты, 
естественно, стираются. 


Программа Spriter* 


Генератор спрайтов $ргЁег позволяет создавать спрайты разме- 
ром до 32X22 знакомест и формировать спрайт-файл длиной AO 26 
килобаит. Готовые спрайт-файлы и экранные файлы загружаются 
в компьютер и записываются на ленту или диск непосредственно 
в процессе работы. В программе используется один формат записи 
спрайт-фаила, допускающий и послелующее редактирование 
Файла в генераторе, и использование его в программах на 
Laser Basic. 


Текст программы приведен в Приложении 3 


183 





LASER BASIC 


Алгоритм создания спрайт-файла программой Spriter. Картинки 
спрайтов рисуются в любом графическом редакторе*. Затем экран- 
ный файл со спрайтами записывается на ленту или диск. Естест- 
венно, можно пользоваться и готовыми экранными файлами. 

С помощью программы Spriter спрайты «снимаются» с экрана и 
помещаются в спрайт-файл, который затем может быть записан на 
ленту или диск. 

Программа загружается оператором LOAD "SPRITER”. Сразу после 
загрузки появится запрос о типе магнитного накопителя: Таре ог 
Disk (Т/О). Для работы с магнитофоном нажимается клавиша Т, с 
лдлисковолом — D. 

Далее, на запрос: Screen пате?, вводится имя экранного файла с 
изображениями спрайтов. 

После загрузки экранного файла в двух нижних строках появля- 
ется информация о текущих параметрах, которая булет постоянно 
находиться перед глазами: 


.SPN — номер текущего спрайта; 

„АСТ — высота активного окна (в 3HAKOMECTAX); 

„СЕМ — ширина активного окна (в знакоместах); 
START — адрес начала спрайт-файла (нижняя граница); 


LENGHT — длина спрайт-файла. 


В верхнем левом углу экрана размещается активное окно. Оно 
задает границы спрайтов, переносимых в память. Размеры окна — 
ширина и высота — легко изменяются следующими клавишами: 


CS/5 — уменьшение ширины активного окна на знакоместо; 
CS/6 — увеличение высоты активного окна на знакоместо; 
Cs/7 — уменьшение высоты активного окна Ha знакоместо; 
CS/8 —— увеличение ширины активного окна на знакоместо. 


Клавиншгами 5, 6, 7 и 8 весь экран циклически прокручивается 
по четырем направлениям с шагом в одно знакоместо. Таким 
образом, любой фрагмент экрана может быть помещен в активное 
окно, а оттуда перенесен в память в виде спрайта. При этом, 
соответственно, изменится содержание информационных строк. 
При изменении размеров активного окна и выполнении некото- 
рых других операций размеры окна индицируются инверсией. 


Управляющие клавиши программы Spriter: 


М - ввод нового номера текущего спрайта (.SPN). Допускаются 
значения OT 1 AO 255; 


С — создание спрайта с номером .SPN — копирование изобра- 
жения из активного окна в спрайт-файл; 


Р — перенос спрайта с номером .SPN из памяти в активное окно; 

D — стирание (удаление из спрайт-файла) спрайта с номером 
.SPN; 

С — загрузка нового экранного файла с ленты или диска. На 


запрос $сгееп пате? вводится имя экранного файла; 


При создании экранов помните, что нижние две строки будут заняты генератором 
спрайтов для вывода служебной информации. 


184 


СОЗДАНИЕ СПРАЙТОВ 





$ — запись готового спрайт-файла на диск или ленту. Перед 
записью следует запомнить значение переменной START, 
индицируемое в информационной строке (нижняя граница 
спрайт-файла). Оно потребуется при загрузке спрайт-фай- 
ла с помощью программы-диспетчера Laser; 

L — загрузка спрайт-файла для редактирования. Перед загруз- 
кой в ответ на запрос Starting address? следует ввести адрес 
нижней границы загружаемого спрайт-файла. При загруз- 
ке нового спрайт-файла спрайты, ранее занесенные в па- 
мять, будут утрачены; 


У — показ границ активного окна, 
В 


— выход в интерпретатор Laser Basic. Команда может пона- 
добиться для выполнения других инструкций Laser Basic, 
не предусмотренных генератором спрайтов. 


Любой запрос может быть отменен, если в ответ на него просто 
нажать Enter. Исключение составляет запрос Starting address?, KoTO- 
рый отменяется вводом недопустимого значения стартового адреса 
(меньше 30000 или больше 56575). 

В процессе работы в нижней строке экрана будут появляться 
сообщения, понятные любому программисту, так как в них исполь- 
зуется не более десятка английских слов. 

Если при работе Вы случайно (или нарочно) «вылетите» в 
Бейсик, то вернуться в программу можно, дав команлу GO ТО били 
RUN. При этом спрайт-файл сохраняется, но картинка на экране не 
восстановится. 


Создание спрайтов больших размеров 


Оба рассмотренных выше генератора спрайтов накладывают 
ограничения на максимальный размер создаваемого спрайта. Для 
программы Spriter этот предел — 32х22 знакоместа, для SPTGEN и 
того меньше — 15х15. Однако спрайт любых размеров, в том 
числе и спрайт длиной в несколько экранов, можно легко добавить 
в готовый спрайт-файл, не пользуясь генератором спрайтов. Для 
этого необходимо всего лишь выполнить несколько операторов 
Laser Basic. 


Сначала рассмотрим алгоритм включения в готовый спрайт- 
файл нового спрайта с размером, меньшим или равным экрану: 


1. создать изображение спрайта в виде экранного файла (в 
графическом редакторе) и сохранить его на диске или ленте. 
Для удобства изображение лучше размещать в левом верхнем 
углу экрана (чтобы не запоминать его положения}; 


2. загрузить интерпретатор Laser Basic; 
. выполнить CLEAR 25000; 


4. загрузить готовый спрайт-файл с адреса, равного его нижней 
границе (назовем ее STARTOLD); 


5. записать в ячейки 62464 и 62465 адрес нижней границы 
STARTOLD; 


Ww 
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6. задать номер и размеры добавляемого спраийта в знакомсстах, 
выполнив операторы .SPN=N:.LEN=L:.HGT=H; 
7. выполнить слелующие несколько строк: 
10 LOAD "SCREEN”CODE 16384,6912: КЕМ Загрузка экрана 
20 .ISPR: REM Увеличение размеров спрайт-файла 
30 .GTBL: REM Запись спрайта 


8. определить новую нижнюю границу спрайт-файла: 
LET START=?PEK 62464 


> 


. сохранить молифицированный спраит-файл: 
SAVE "SPRITES”CODE START,56575—START 
— rae START — новая нижняя граница спраит-фаила. 


Описанным выше методом можно создать спрайт размером He 
больше экрана — 32х24 знакоместа. Преодолеть это ограничение 
позволяет другой метод. Рассмотрим его на примере создания 
спрайта длиной в 96 и высотой в 3 знакоместа в готовый спраит- 
файл (использование такого спраита описано в разделе 
«Скроллинг пейзажа» на стр. 169). 

Предварительно нужно нарисовать спрайт в графическом ре- 
дакторе, разместив его на экране в три полосы высотой по 3 
знакоместа и ллиной в 32 столбца. Первая полоса должна на- 
чинаться с верхней строки экрана, межлу полосами не должно 
быть пробелов. 

Далее необходимо выполнить последовательность деиствии, 
описанную выше, дополнив программку из пункта 7 слелдующими 
строками: 


30 .LEN=31:.HGT=3:.COL=0 

40 .ROW=0:.SCL=0:.GWBL: КЕМ Перенос в спрайт 1-й полосы 
50 .ROW=3:.SCL=31:.GWBL: КЕМ Перенос 2-й полосы 

60 .ROW=6:.SCL=62:.GWBL: КЕМ Перенос 3-й полосы 


КОМПИЛЯТОР 





Компилятор Laser Basic преобразует исходную бейсик-програм- 
му в некую конструкцию из кодов с целью сделать программу 
независимой от интерпретатора и повысить скорость ее работы. 

Однако, хотя программа после компиляции и освобождается OT 
опеки интерпретатора, она попадает в другую кабалу: не может 
работать без присутствия в памяти пакета рабочих процедур ком- 
пилятора. Но обычно заботиться о размере программы не 
приходится: любая программа, написанная в интерпретаторе 
Laser Basic, сможет быть обработана компилятором*. 


Компилятор Laser Basic может транслировать и стандартные бейсик-программы. 
но без особого выигрыша в скорости 
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Ограничения на текст исходной программы 


Основное, на что стоит обратить внимание при работе с ком- 
пилятором, — это ограничения, накладываемые им на использо- 
вание в компилируемой программе операторов Spectrum-bencu ka: 


. запрещается использование операторов CLEAR, MERGE, 
CONTINUE, LIST, LLIST; 

. операторы LOAD, SAVE, VERIFY допускаются только при yc- 
AOBHH, что они загружают или записывают на ленту OTKOM- 
пилированную программу (то есть они не могут работать, 
например, с некомпилированной программой, с кодовыми 
блоками). Команды обращения к диску в системе TR-DOS не 
выполняются вообще; 

* в операторах RUN, GO TO, GO SUB, RESTORE лопускаются только 
целочисленные параметры (нельзя использовать переменные 
и выражения}; 

. оператор RUN работает как обычно, но не производит очистки 


переменных; 
. в операторе INPUT не допускается использовать ключевое слово 
LINE; 
‚ операторы OPEN# и CLOSE# работают только с потоками "5" и 
ТЕ В+ 


‚если в цикле FOR...NEXT содержится оператор Laser Basic, то 
конечное значение параметра цикла не должно быть меньше 
начального при положительном значении STEP или превос- 
ходить его при отрицательном $ТЕР, то есть цикл должен быть 
выполнен хотя бы один раз. Пример: 


10 LET s=RND*10 
20 FOR n=5 TO s:.INVV: NEXT n 


Во избежание ошибок в указанный фрагмент следует вставить 
одну дополнительную строку: 


tS IF 5=5 THEN GO TO 10 


Текст исходной программы сохраняется на магнитном 
носителе оператором SAVE "МАМЕ". 


Обратите внимание, что АЛЯ нормальной работы 
скомпилированной программы исходная бейсик-программа долж- 
на стартовать с первой строки. 


Компиляция 


При компиляции в памяти компьютера должны находиться толь- 
ко текст исходной программы и сам компилятор. 

Прежде всего нужно «сбросить» компьютер, выполнить 
CLEAR 59799 и оператором LOAD "МАМЕ" загрузить исходную прог- 
рамму. После этого оператором LOAD "СОМРСОПЕ" CODE загружает- 
ся компилятор. 
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Комииляния запускастся оператором RANDOMIZE USR 59800. 


Во время компиляции экранная область HCHOAB3YCTCH в качестве 
буфера, поэтому в верхних строках экрана отображается случай- 
ная информация. По окончании компиляции экран очистится и 
внизу появится сообщение типа 0 ОК, 1000:1, которое означает, что 
все нормально, компиляция закончилась на строке 1000. Остается 
только сохранить полученный фаил оператором 
SAVE "NAMEcomp” LINE 1. Перел записьк» не следуст выполнять опе- 
ратор CLEAR. 

Полученный фаил не поддается редактированию ни средствами 
стандартного Беисика, ни средствами Laser Basic, поэтому есть 
смысл сохранить исходную (некомпилированную)} программу. 

Если взглянуть на листинг откомпилированной программы, то 
мы увидим всего 2-3 строки. Первая 


0 PRINT 0 


содержит информацию для пакета рабочих процелур и не выпол- 
няется. Вторая строка 


0 RANDOMIZE USR 59800 
запускает откомпилированную программу. 


Если в исходной программе имеются функции, определяемые 
пользователем, то их список помещается в третьеи строке с номе- 
ром 0. Все операторы ВАТА помещаются в четвертую строку, также 
с номером 0. 

К сожалению, компиляция не всегда заканчивается сообщением 
0 ОК. Она может быть прервана с выдачей номера строки, в KOTO- 
рой встретилась ошибка, и одного из слелдующих сообщении: 


illegal statement found 


обнаружен о OAHH ИЗ недопус тимых опера торов: CLEAR, MERGE, LIST, 
LLIST или CONTINUE; 





Procedure definition nesting error 


наидено два описания процедуры подряд без. оператора .ВЕТМ 
между ними; 





РЕТМ TN without DEF in error 


найден оператор .ВЕТМ без соответствующего описания. процеду- 
ры; 





Procedure по} found 
обращение к неописанной ‘процедуре. 





Загрузка откомпилированной программы 


AAA загрузки и запуска откомпилированной программы необ- 
ходима отдельная программа-загрузчик, написанная на Spectrum- 
Бейсике. 
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Стандартный, универсальный загрузчик содержится в файле 
"LOADER": 

10 CLEAR 59799:REM Пространство под рабочие процедуры“ 

20 LET spst=XXXXX: REM Нижняя граница спрайт-файла (START) 

30 LOAD "RTCODE" CODE: REM Загрузка рабочих процедур 

40 LOAD "5РЮТЕ$" CODE spst: КЕМ Загрузка спраит-файла 

50 LET t=INT(spst/256) : РОКЕ 62464, (spst—256*t): РОКЕ 62465, +: 
РЕМ Указание адреса начала области спрайтов 

60 РОКЕ 62466,255 : РОКЕ 62467,220: REM Указание адреса конца 
области спрайтов 

70 РОКЕ 56575,0: REM Метка конца области споайтов 

80 LOAD "NAMEcomp”: КЕМ Загрузка откомпилированной прог- 
раммы 


AA работы C этим загрузчиком необходимо только задать KOHK- 
ретные значения: 


в строке 20 — адрес нижней границы спраийт-фаила (START); 
в строке 40 — имя спраит-фаила; 
в строке 80 — имя откомпилированной программы. 


Во многих случаях загрузчик можно (и нужно} упростить. 


Вариант 1. Если в программе не используются спрайты и нет 
кодовых частей, то загрузчик сократится AO 4 строк: 


10 CLEAR 59799 

20 LOAD "RT CODE” CODE 
30 POKE 56575,0 

40 LOAD "NAMEcomp” 


Вариант 2. При необходимости подгрузки спрайт-файла, Ha- 
пример, с именем “SPRITES” и стартовым адресом 40000, загрузчику 
можно придать «конкретный» вид: 


10 CLEAR 39999: REM START—1 

20 LOAD "RT CODE" CODE 

30 LOAD "SPRITES" CODE 40000 

40 РОКЕ 62464,64: POKE 62465,156: КЕМ 40000=64+256х 156 
50 РОКЕ 62466,255: РОКЕ` 62467,220: REM 56575=255+256x 220 
60 POKE 56575,0 

70 LOAD "NAMEcomp” 


Вариант 3. Может случиться, что для работы откомпилирован- 
ной программы необходимы кодовые блоки, например, второй 
знакогенератор или подпрограмма в машинных кодах. Чтобы най- 
ти для них место, рассмотрим верхнюю часть памяти ZX Spectrum 
(табл. 11). 


wake RAMTOP лучше выбрать Ha 1 меньше нижней границы спрайт-файла 
(START). 
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Таблица 11. Распределение памяти в присутствии 
откомпилированной программы. 


P_RAMT (23732) ———_—_—— 65535 
Процедуры компилятора "КТ CODE” 
59800 
Свободная область 
END ——[—_—_—_—_ 56575 
Область спрайтов 
START 


RAMTOP=START-1 (23730) 


E_LINE (23641) 
Переменные Бейсика 
VARS (23627) 

Бейсик-программа 
РКОС (23635) 


Как вилно из приведенной таблицы, между областью спрайтов 
и пакетом процедур "RT CODE” имеется около 3 килобайт свободной 
памяти, начиная с адреса 56576. Проще всего поместить кодовые 
части именно в эту область. При этом в текст загрузчика (мо- 
длифицируем 2-й вариант) добавим строку: 


15 LOAD "YOURCODE"” CODE 56576: КЕМ Загрузка кодового 
файла 


Несколько сложнее размещать кодовые части, если их длина 
превышает 3 килобайта. Место под кодовые части можно заре- 
зервировать, вставив в спрайт-файл при его формировании пус- 
той спрайт, то есть спрайт, не несущий никакой информации. 
Размер и адрес начала пустого спрайта можно определить при его 
создании в генераторе спрайтов или с помощью функции TST. А 
строка 15 изменится на 


15 LOAD "YOURCODE" CODE addr 


— где addr — адрес начала пустого спрайта. При необходимости 
можно создать несколько пустых спрайтов. 

Можно воспользоваться также оператором перемещения 
спрайт-файла .RLCT. В этом случае в загрузчике нужно AOTIOA- 
нительно изменить адрес верхней границы спрайт-файла ЕМО. 


Выполнение откомпилированной программы 


После запуска откомпилированной программы ее невозможно 
остановить нажатием клавиш CS/Space (Break). Если же 
происходит сбой в работе программы, то она прерывается с выда- 
чей одного из стандартных сообщений об ошибке, но, к сожа- 
лению, без указания места возникновения ошибки. 


190 


ПРИЛОЖЕНИЯ 


Единственное новое сообщение об ошибке, которое генерирует 
сам пакет рабочих процедур компилятора, — это Program not compiled, 
что означает: при старте программы она не идентифицирована как 
скомпилированная. 


Корректировать откомпилированную программу, как уже го- 
ворилось, можно только одним способом — вносить изменения в 
текст исходной (некомпилированной) программы и компилиро- 
вать вновь. 


ПРИЛОЖЕНИЯ 





1. Операторы и функции Laser Basic 


Таблица 12. 











Преобразование окна экрана 


ANVV Инвертирование окна экрана ROW | FC38 101 | 161 | 
.МЮУ | Зеркальное отображение окна экрана т FD26 ee | 161 


| .MARV | Зеркапьное отображение атрибутов “LEN FD32 161 
| | окна экрана | 


.ЗЕТУ | Установка атрибутов в окне экрана FF9D | O1 | 161 | 
| Скроллинг окна экрана 
FF8B | 01 | 161 


а al hail 
F757 ee 161 
F752 






-CLSV | Очистка окна экрана 


.УМЕТУ | Циклический скроппинг окна экрана 
на | пиксель влево 


.УМУВ1У | Циклический скроплинг окна экрана 
на | пиксель вправо 


LV Скроллинг окна экрана 
на | пиксель влево 

.SRIV Скроллинг окна экрана 
на | пиксель вправо 


.УУЕ4У | Циклический скроппинг окна экрана 
на 4 пикселя влево 


2740 


.WR4V | Циклический скроллинг окна экрана 
на 4 пикселя вправо 


F785 li 
.SL4V Скроллинг окна экрана 
на 4 пикселя влево 
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‚5 
на 4 пикселя вправо 


.УУЕ8У | Циклический скроллинг окна экрана 
на 8 пикселей влево 

.УУВ8У | Циклический скроллинг окна экрана 
на 8 пикселей вправо 


.SL8V 


.SR8V 








Скроллинг окна экрана 
на 8 пикселей влево 










Скроллинг окна экрана 
на 8 пикселей вправо 


.УУСКУ | Циклический вертикальный скроплинг 
окна экрана 







SCRV_ | Вертикальный скроллинг окна экрана 


Скроллинг атрибутов окна экрана 


ATLV | Скроллинг атрибутов окна экрана 
влево 

.ATRV | Скроппинг атрибутов окна экрана 
вправо 


.ATUV | Скроплинг атрибутов окна экрана 
вверх 


F818 | 01 | 162 


F82A 162 


Fara | oi [182] 
Преобразование спрайтов в памяти 


Инвертирование спрайта .SPN FORE 
.МЕМ | Зеркальное отображение спрайта FD2C 
.MARM | Зеркальное отображение атрибутов FD4F 167 
.SPNM_ | Поворот спрайта на 90° SP F9DD HAC | 168 | 
.DSPM_ | Увеличение размеров спрайта are FDB3 HAC | 168 | 
.ЗЕТМ | Установка атрибутов спрайта . РМ FFBB 
-CLSM | Очистка спрайта 


Скроллинг спрайтов в памяти 

Циклический скроллинг спрайта .SPN F&C? | 13 | 167 
на | пиксель влево 

Циклический скроллинг впрайта F8CC | 13 | 167 
на 1 пиксель вправо 


.ATDV | Скроплинг атрибутов окна экрана вниз 

















1 


| 


м 
RIM 


Е 


—^ 
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.SLIM 


Скроплинг спрайта на 1 пиксель влево 
.5В1М | Скроллинг спрайта на 1 пиксель вправо 


.WL4M | Циклический скроллинг спрайта 
на 4 пикселя влево 









.WR4M | Циклический скроллинг спрайта 


на 4 пикселя вправо 


.SPN 
Скроллинг спрайта на 4 пикселя влево 
F Скроллинг спрайта на 4 пикселя вправо 
8M | Циклический скроллинг спрайта на 8 
пикселей влево 





<и и 


.WR8M | Циклический скроллинг спрайта 
на 8 пикселей вправо 
.SL8M_ | Скроплинг спрайта на 8 пикселей влево 


‘ Скроллинг спрайта на 8 пикселей 
вправо 


WCRM | Циклический вертикальный скроллинг | .5РМ 
спрайта .МРХ 


SCRM | Вертикальный скроллинг спрайта 


: in 
р. 
со 








Скроллинг атрибутов спрайтов в памяти 


rece] 13 [197 


Разрешение/ запрещение переноса атрибутов 


Разрешение переноса атрибутов a FAOS | 00 | 160 | 












.АТОМ 
.АТОР 





Запрещение переноса атрибутов 





Перемещения: окно экрана — спрайт 








-GTBL 





Копирование окна экрана в спрайт .SPN F286 
.ROW 
MOL 
-GTOR | Наложение окна экрана на спрайт 
по принципу OR 
.СТХ® | Напожение окна экрана на спрайт 
по принципу XOR 


GTND | Наложение окна экрана на спрайт 
по принципу АМО 







mn 
N 
ь®) 
© 





7 Зак. № 192 193 





LASER BASIC 


Перемещения: спрайт — окно экрана 
„РТВЬ Вывод спрайта на экран . 


.PTOR Наложение спрайта на окно экрана 
по принципу ОК 
















.PTXR Наложение спрайта на окно экрана 
по принципу XOR 


Наложение спрайта на окно экрана .SPN Р2ВЕ | 33 
по принципу АМО . КОМУ 
COL 
Перемещения: окно экрана — окно спрайта 
WBL | Копирование окна экрана в окно F2C6 | 2B 
спрайта | р 
. СУМОК | Напожение окна экрана на окно | FZCC | 2B 
спрайта по принципу OR ; 
-GWXR | Наложение окна экрана на окно . F2D2 | 2B 
спрайта по принципу XOR 
ва aad 


Гео [8 165 


ll 
Pur 


E983 | 23 


.PTND 








3 






.GWND | Наложение окна экрана Ha окно 
спрайта по принципу АМО 








Перемещения: экран — окно спрайта 






5 


WBL | Вывод окна спрайта на экран 
WwW 


.PWOR | Наложение окна спрайта на экран 


по принципу ОК 


.РУУХ Наложение окна спрайта на экран 
по принципу XOR 


.РУММ Наложение окна спрайта на экран 
по принципу АМО 








Перенос атрибутов: экран — спрайт 


Перенос атрибутов окна экрана : 
в окно спрайта 


Перенос атрибутов окна спрайта 
в окно экрана 


WAT 


Е 


.РУУА 













Перемещения: спрайт — окно спрайта 













-GMBL | Копирование спрайта в окно другого 


спрайта 
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-GMOR | Напожение одного спрайта на окно я 
другого по принципу ОК ‘ 

GMXR | Наложение одного спрайта Ha окно | 
другого по принципу ХО ; 

GMND | Наложение одного спрайта Ha окно 
другого по принципу АМО 

.РМВЕ | Копирование окна спрайта 

в другой спрайт 


PMOR | Напожение окна спрайта на другой 
спрайт по принципу О 

.РМХЮ | Наложение окна спрайта на другой 
спрайт по принципу ХОК 

.РММО | Наложение окна спрайта на другой 
спрайт по принципу АМО 


Перенос атрибутов: спрайт — спрайт 


















.СМАТ | Перенос атрибутов спрайта 
в окно другого спрайта 


7 Ш 
„РМАТ | Перенос атрибутов окна спрайта РЗ 3 | 23 
в другой спрайт 


Перемещение спрайта по экрану 






.МОУЕ | Перемещение спрайта 









Операции с областью спрайт-файла 


.ISPR Создание спрайта заданных размеров | .SPN 2.43 | 2B | 171 
(понижается нижняя граница спрайт- „НОТ 
файла) .LEN 
.SPRT Создание спрайта заданных размеров ЕС48 | 2B | 171 
(повышается верхняя граница спрайт- 
файла) 
.DSPR Уничтожение спрайта (повышается .SPN FESO: 131.171 
нижняя граница спрайт-файла) 
.WSPR_ | Уничтожение спрайта (понижается FS2F |. 13 | 171 
верхняя граница спрайт-файла) 


ГАС [перемещение copair-baina в паням | MIN |= [V2 
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Вспомогательные графические операторы и функции 


.ADIM .SPN EBF7 | 33 | 172 
.ROW 
COL 
.ADIV Настройка переменных .НСТ и .LEN ECT! 172 
для окна экрана 


?SCV Проверка знакоместа на включенные | .ROW 172 
пиксели АиФ 

?SCM Проверка спрайта на включенные .SPN 172 
пиксели 


Определение существования спрайта L= =e 


Сервисные операторы 








Настройка переменных .НСТ и .LEN 
для спрайта 
























16-битовая версия РЕЕК hee ae | 
16-битовая версия РОКЕ ЕН 
[ам | epenynepawiacrpoe Е [= 
ГВЕМК | Yaarenve рен || 
TRON | бочек, [Е |. 
ГОР бъмточение пк, ГЕ [Е 






2. Использование графических переменных .SP1 и .SP2 


Таблица 13. 





-GMBL 
.GMOR 
.GMXR 
.GMND 


SP: откуда куда откуда куда 
Pd Kya откуда куда откуда 
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3. Листинг программы Spriter* 


90 
100 


108 
109 
110 
111 
153 
154 
155 
156 
198 
199 
200 


201 
203 


204 
208 
209 


210 
211 
212 


213 
215 


216 


REM © Piter Ltd. Автор П. Карпов 

GO SUB 1000 

POKE 56575,0: CLS : LET h=1: LET k=1: LET n=1: RANDOMIZE 
USR 58841: GO TO 30 
SET=1:.ROW=0:.COL=0:.HGT=22:.LEN=32 

SET=2:. ROW=0:.COL=0:.SPN=1 

SET=3: ROW=22:.COL=0:.HGT=2:.LEN=32 

INPUT "Screen name? "; LINE a$: LET z=16384: LET х=6912: 

GO TO 2000 

LET s=?PEK62464: LET g=56575-—s 

SET=3:.SETV:.CLSV: PRINT #1:AT 0,0;".SPN=":n:" .LEN=" k:" 
HGT=""h' "Start: ";$;" Lenght: "ig 

.5ЕТ=1 

PAUSE 0: LET a=CODE INKEY$: GO ТО 100+а*(а=98 OR а=99 OR 
a=100 OR a=103 OR a=108 OR a=110 OR а=112 OR a=115 OR 
а=118 OR а>52 AND а<57 OR a=8 AND k>1 OR a=9 AND k<32 
OR a=10 AND h<22 OR a=11 AND h>1) 

LET k=k—1: GO TO 500 

LET k=k+1: GO TO 500 

LET h=h+1: GO TO 500 

LET h=h—1: GO TO 500 

.WL8V:.ATLV: GO TO 500 

.NPX=—8:.WCRV:.ATDV: GO TO 500 

.NPX=8:.WCRV:.ATUV: GO TO 500 

.WR8V:.ATRV: GO TO 500 

STOP 

GO TO 60 

.SET=2: LET e=?TST: IF NOT e THEN LET a$="Sprite not 

found”: .LEN=k:.HGT=h: GO TO 2050 

.DSPR: LET a$="Sprite deleted”: LET i=4: GO TO 2060 

.SET=2: LET e=?TST: IF NOT e THEN .LEN=k:.HGT=h:.ISPR:.GTBL: 
LET a$="Sprite gotten”: LET i=4: GO TO 2060 

LET a$="Sprite exist”: GO TO 2050 

INPUT "Starting address? ";2: IF z<30000 OR z>56574 THEN GO TO 70 
.~POKE62464,z: LET x=56575—z: INPUT "Sprite name? "; LINE а$: 
GO TO 2000 

INPUT ".SPN="; LINE a$: IF а$="" THEN GO TO 70 

GO TO 300 

.SET=2: LET e=?TST: IF NOT e THEN LET a$="Sprite not 

found”: .LEN=k:.HGT=h: GO TO 2050 

.PTBL: GO TO 500 

INPUT "Spritefile name? "; LINE a$: IF a$="" OR МОТ а THEN GO 
TO 7a 

IF d THEN SAVE a$CODE s,g: GO TO 70 


Внимание! Недопустимо изменять нумерацию строк. 
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217 
218 
220 
230 
250 
260 
270 
300 
310 
320 
500 
1000 
1010 
1020 
1030 
1040 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
3000 
3010 


3020 
3030 
3040 


СО ТО 250 

SSET=2: .LEN=k:.HGT=h:.INVV: ВЕЕР .01,30 

IF INKEY$<>"" THEN GO TO 220 

.INVV: GO ТО 70 

LET e=USR 15619: REM : SAVE a$CODE s,g 

IF NOT e THEN GO TO 70 

LET a$="File not saved": GO TO 2050 

FOR i=1 TO LEN а$: IF a$(i)<"0" OR a$(i)>"9" THEN GO TO 70 
NEXT i: LET m=VAL a$: IF m<=0 OR m>255 THEN GO TO 70 
LET n=m 

.SET=2:.SPN=n:.LEN=k:.HGT=h:.INVV: ВЕЕР .01,30:.INVV: GO TO 70 
РОКЕ 23658,0: CLS : PRINT AT 3,6;"Tape or Disk? (Т/О)" 

PAUSE 0: IF INKEY$="t" THEN CLS : LET d=1: GO TO 1040 

IF INKEY$<>"d" THEN GO TO 1010 

LET d=0 

CLS : BEEP .005,30: RETURN 

IF ag$="" THEN GO TO 70 

IF а THEN LOAD a$CODE z,x: GO TO 70 

LET e=USR 15619: REM : LOAD a$CODE z,x 

IF NOT e THEN GO TO 70 

LET a$="File not found” 

LET i=2 

PRINT #1;AT 1,0; INK i; FLASH 1;a$: BEEP 1,3: PAUSE 100: GO TO 70 
INK 7: PAPER 0: BORDER 0: CLEAR 29999: GO SUB 1000 

IF а THEN LOAD "LASOBJ"CODE : LOAD "LASLOBJ"CODE : 
RANDOMIZE USR 62464: LOAD "СКАРН"СОПЕ : GO TO 20 

LET e=USR 15619: REM : LOAD "LASOBJ” CODE 

IF NOT-e THEN LET e=USR 15619: REM : LOAD "LASLOBJ"CODE 
IF NOT e THEN RANDOMIZE USR: 62464: LET e=USR 15619: REM : 
LOAD "GRAPH"CODE 


3050 ЧЕ ОТ e THEN GO TO 20 


3060 


PRINT ##1;AT 1..0; МК 2; FLASH 1;"Loading error’: BEEP 1,3: 


PAUSE 100: STOP 


Программа сохраняется оператором 


SAVE "SPRITER” LINE 3000 


На магнитном носителе вслед за файлом "SPRITER” должны быть 


записаны. следующие ` кодовые файлы: “"ГА$ЗОВ/”, "ГАЗЕОВ]” и 
“GRAPH” (см. Приложение 5). 
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4. Вызов подпрограмм Laser Basic из машинных кодов” 


Интерпретатор Laser Basic можно использовать в качестве паке- 
та рабочих процедур при написании программ в кодах. Адреса 
процедур Laser Basic хранятся в памяти в виде таблицы, начинаю- 
щейся с адреса #EC4D**. В ней на каждый оператор отводится 
8 байт. Первые 4 байта — имя оператора, слелующие 2 байта — 
собственно адрес, 7-H баит — KOA типа команды, последний байт — 
порядковый номер оператора в таблице. 


Графические переменные хранятся в виде наборов (.SET). На 
каждый набор отводится 12 байт, начиная с адреса #E7CB 
(59339). Адрес конкретного набора вычисляет подпрограмма 
#Е96Е. Перед обращением к ней в регистр А заносится номер 
набора (0...15)***, а в НГ подпрограмма возвращает требуемый 
адрес (его лучше представлять через регистровую пару [Х): 


LD A,<Homep набора> 
CALL H#EI6E 

PUSH HL 

POP IX 


Переменные в каждом наборе располагаются в следующей пос- 
леловательности: 


IX+0 младший байт .MLN IX+6 SRW 
IX+1 старший байт .MLN #Х +7 CL 
Oe .ROW [Х+8 .МРХ 
IX+3 {COL | IX+9 .SPN 
IX+4 .LEN IX+10 SPA 
IX+5 „НСТ IX+11 SP2 


В табл. 12 (Приложение 1) и табл. 14 приведена вся необ- 
ходимая информация AAA непосредственного обращения к TOA- 
программам Laser Basic. В первой таблице находим интересующий 
оператор и определяем адрес процедуры и код типа команды, по 
которому из второй таблицы узнаем способ обращения к данной 
процедуре. Например, нам нужно выполнить оператор .5ЕТУ. В 
табл. 12 находим адрес — #ЕЁ9О, код операции — #01. Из 
табл. 14 узнаем, что перед обращением к подпрограмме регистры 
В, С, Ни Г должны быть загружены, соответственно, значениями 
ROW, .COL, „НСТ и .LEN. Кроме того, поскольку оператор .SETV 
работает с атрибутами, предварительно нужно занести (если тре- 
бустся, конечно) в системную переменную АТТВ_Р (23693) баит 
атрибутов. После этого можно вызвать подипрограмму, которая ус- 
тановит атрибуты в заданном окне. Выглядит это, например, так: 


10 LD A, %01101001 ; задаем INK 5, PAPER 1, BRIGHT 1 
20 LD (23693), A 


Предлагаем этот раздел для читателей, знакомых с программированием на ac- 
семблере 

ae 
В этом приложении адреса ячеек памяти приведены в шестнадцатеричном виде. 


*ж* т. = = = я 
Если используется текущии наоор, то его номер можно взять из ячеики #92. 
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30 ; 

40 ;загружаем регистры значениями .ROW=1, .COL=7, .HGT=4, .LEN=5 
50 LD В, | 

60 LD Goan 

70 LD H, 4 

80 LD L, 5 

90 CALL #FF9D ; выполняем оператор .SETV 


Таблица 14. Загрузка регистров процессора при обращении 
к процедурам Laser Basic. 









A=.SPN, В=.МРХ 
B=.SP1, C=.SP2 
B=.SP2, C=.SP1, D=.SRW, E=.SCL 


5. Спецификация файлов пакета Laser Basic* 


Таблица 15. 





R 
B CODE 3642} 58820 
LASLOB] CODE 1024| 62464 
GRAPH CODE 3072| 62464 


Интерпретатор LASO 


Спрайт-файлы SPRITE2A CODE 5062 


eon SPRITE2B CODE 6271 


Приводится спецификация фирменного пакета. В других версиях могут отл ичать- 
ся имена и длины бейсик- файлов. 


200 


ПРИЛОЖЕНИЯ 


Спрайт-файлы 
для генератора спрайтов 


SPRITE1A CODE 
SPRITE1B N. ARRAY 


sare | 605 |6 
[ве | ве | 89%] = | 
= 


Г anvaber [Basie | 130] = | 


58 

5 | 
откомпилированных RTCODE CODE 5736 59800 
программ 
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MEGABASIC 


YS MegaBasic — один из лучших диалектов Бейсика для 
ZX Spectrum — был распространен в 1985 году под эгидой журна- 
ла «Your Sinclair» (от названия журнала и возникли первые буквы 
в имени программы). 


Имеют хождение три версии МедаВаз1с, датированные все 1985 
годом: 1.1, 3.0 ‘и 4.0. Различия между версиями 1.1 и 3.0 скорее 
косметические, причем не в пользу версии 3.0. Дело в том, что 
MegaBasic 3.0 при попытке ввода некорректно сформулирован- 
ных строк вместо выдачи предусмотренного на этот случай сооб- 
щения Syntax error имеет обыкновение время от времени 
«зависать». Поэтому пользоваться этой версией без особых на то 
оснований не рекомендуется. Зато в версии 4.0 проблема про- 
верки вводимого текста решена кардинально: синтаксис редакто- 
ром почти не проверяется, и комментирует программистские 
изыски MegaBasic 4.0 уже в ходе выполнения программы. Это 
объясняется тем, что редактор MegaBasic 4.0 разрешает сокращен- 
ную форму ввода не только для операторов стандартного Бейсика, 
как в предыдущих версиях, но и для многих операторов самого 
MegaBasic. С этим связано и единственное ограничение на сов- 
местимость различных версий: программы, составленные для 
MegaBasic 4.0 с сокращенной записью операторов MegaBasic, 
нельзя использовать в более ранних версиях. 

Дальнейшее изложение, ‘если не оговорено иное, справедливо 
для любой версии МедаВаз1с. Однако для большей наглядности мы 
будем работать с версией 4.R — русифицированным 
MegaBasic 4.0*. 

Поскольку MegaBasic вышел на рынок в 1985 году, а первый 
128-килобайтный Spectrum — годом позже, то они, естественно, 
оказались несовместимы, о чем остается лишь сожалеть, так как 


Автор Mike Leaman. Файлы версии 4.0: MegaBasic (тип BASIC, длина 655 байт), 
MegaCode (тип CODE, длина 20373 байт, адрес загрузки 44996). О том, как и где 
приобрести версию 4.R, смотрите в рекламном разделе книги. 
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из-за большого собственного объема MegaBasic (свыше 20 кило- 
байт) часто ощущается нехватка памяти при создании программ. 

Второй недостаток MegaBasic — несовместимость с дисковой 
системой TR-DOS. Причина в том, что MegaBasic, так же, как и 
TR-DOS, использует 2-й режим прерываний процессора*. Однако 
существуют способы преодоления этого недостатка. Один из них, 
наиболее простой, приведен в Приложении 3. 


ЧТО МОЖЕТ MEGABASIC! 





Прежде чем начать работу с любой системной программой, 
нелишне выяснить ее возможности и сопоставить их со своей 
задачей. Поэтому кратко расскажем об особенностях MegaBasic, 
отталкиваясь от стандартного Зреснит-Бейсика. 


Прежде всего, MegaBasic может абсолютно все, на что способен 
и 5реснит-Бейсик, если это «все» не требует больше 20 килобайт 
свободной памяти. И, конечно, любая программа на стандартном 
Бейсике (с учетом указанного ограничения по объему), будучи 
загружена в MegaBasic, станет прекрасно работать**. 


Графические возможности МедаВаз1с чрезвычайно богаты. Bo- 
первых, это наличие MHOTOOKOHHOLO ‘интерфейса, ‘позволяющего 
достаточно гибко`манипулировать выводом информации на экран. 
Во-вторых, три-встроенных символьных набора с изменяемыми в 
‘широких пределах размерами символов. Наконец, оригинальный 
механизм ‘управления спрайтами и кадрами, что существенно для 
написания игровых программ. Все это, несомненно, воодушевит 
тех программистов, которые любят «делать красиво». 


Звуковые способности МедаВаз1с-настолько же превосходят воз- 
можности оператора BEEP Зреснит-Бейсика, насколько и уступают 
потенциалу музыкального процессора компьютера 
ZX Spectrum 128. 


Что касается достижений MegaBasic в технике программиро- 
вания, то в первую очередь обращает на ‘себя внимание довольно 
удобный редактор "с посимвольным -вводом операторов и’возмож- 
ностью копирования любого отрезка выведенного на экран текста 
в редактируемую строку. Разумеется, редактор дополнен большим 
числом новых команд, предназначенных как для управления мно- 
гочисленными дополнительными функциями MegaBasic, так и для 
создания дружественной обстановки для программиста. 


О прерываниях читайте в [1]. 

Неработоспособными окажутся только те программы, внутри которых (скажем, 
под оператором REM) расположены подпрограммы в машинных кодах с абсолют- 
ной адресацией, так как начало бейсик-программ MegaBasic устанавливает на 11 
байт выше, чем это делает стандартный интерпретатор. Кроме того, в бейсик- 
программе не должно быть`обращений к подпрограммам в кодах, расположен- 
ным выше адреса 45000 (исключая область UDG). 


xk 
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В большом количестве MegaBasic содержит и средства структур- 
ного программирования: это и традиционный для расширений 
Зресниит-Бейсика инструмент процедур, и циклы типа 
REPEAT...UNTIL, и операторы, обеспечивающие параллельное вы- 
полнение двух программ, и пр. 

MegaBasic заботится и о тех, кто любит «копнуть поглубже»: 
кроме дополнительных команд работы с машинными кодами, он 
содержит встроенный монитор-отладчик. 


РЕДАКТОР 


AUTO, DELETE, EDIT, ESCAPE, RESET 





Как ни крути, HO приступать к программированию Ha 
MegaBasic можно лишь после ознакомления с работой его редакто- 
ра, тем более, что он кардинально отличается от стандартного 
спектрумовского. 


Все ключевые слова в MegaBasic набираются посимвольно, как 
обычный текст. При этом можно использовать как прописные, так 
и строчные буквы: все, что не заключено в кавычки или не стоит 
под КЕМ, редактор сам преобразует в прописные. Предусмотрена 
возможность ввода ключевых слов и в сокращенной форме, завер- 
шая сокращенное слово точкой. В версиях MegaBasic 1.1 и 3.0 
сокращения допускаются только для стандартных операторов 
эресиит-Бейсика и должны формулироваться однозначно. Версия 
4.0 допускает сокращенную запись и новых операторов, а также 
различные варианты сокращений. Например, AAA оператора 
GOTO в версиях 1.1 и 3.0 принято только сокращение G., а в 
версии 4.0 возможны варианты G., GO., GO.. Правильно сокра- 
щенные операторы Spectrum-beHcuka редактор преобразует в со- 
ответствующий код синклеровской таблицы символов и вывод 
листинга программы осуществляет уже без сокращений. 

В собственных операторах МедаВаз1с связкой между ключевым 
словом H параметрами, если таковые предусмотрены, служит 
символ подчеркивания. Он должен присутствовать и в сокращен- 
ной записи ключевых слов MegaBasic (лля версии 4.0). Например, 
вместо EDIT_10 можно писать ED._10. 


Если есть намерение написать достаточно длинную программу, 
то полезна будет команда 


AUTO_nk 


Она осуществляет автоматическую нумерацию строк. После вы- 
полнения AUTO_n,k в режиме ввода редактор будет подсказывать HO- 
мера очередных строк, начиная с номера пт и с интервалом К. 
Действие АЧТО прекращается нажатием комбинации клавиш 
CS/SS+SS/L. Надо следить только за тем, чтобы номер строки He пре- 
высил 9999, иначе возможны трудности с выходом из режима AUTO. 
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Команда 
DELETE _п1,п2 
удаляет блок программы. Параметры п1 и п2 — номера первой и 


последней удаляемых строк. 


Вызвать на редактирование ранее введенную строку можно как 
обычно: «опустить» ее из листинга в строку редактора с помощью 
клавиш CS/1. Но иногла для этого удобнее воспользоваться 
специальной командой 


EDIT n 


указав номер нужной строки п. 

Обратите внимание, что в MegaBasic вертикальное переме- 
щение курсора при переходе к соседней строке листинга програм- 
мы приводится в действие одновременным нажатием клавиш $$ и 
U (вверх) или SS и У (вниз). Обычный же способ управления 
движением курсора вверх-вниз используется для вертикальных 
перемещений его в пределах вызванной на редактирование 
строки, что очень полезно при редактировании длинных (более 32 
символов} строк. 


В МедаВаз1с введен ряд дополнительных управляющих клавиш, 
работающих при редактировании строки программы: 


5$/@ —-— устанавливает курсор в начало строки; 
SS/E — устанавливает курсор в конец строки; 
CS/3 — удаляет всю редактируемую строку; 

CS/4 — удаляет символ правее курсора; 

$$/М/ — удаляет текст от курсора до конца строки. 


Ввод отредактированной строки происходит, естественно, при 
нажатии клавиши Enter. После чего в версиях 1.1 и 3.0 
MegaBasic либо принимает строку, либо с сообщением Syntax error 
(синтаксическая ошибка) или Bad те (неправильная строка) отка- 
зывает в этом. Версия 4.0, как правило, принимает результат тру- 
лов программиста безоговорочно, а если он допустил ошибку, TO 
соответствующее сообщение выдается уже в процессе выполнения 
программы. 

Следует также сказать о весьма удобном способе формирования 
редактируемой строки с помощью копирующего курсора. Выведите 
на экран какой-либо текст, например, листинг программы. На- 
жмите теперь $$ вместе с одной из клавиш: А, $, D или Е. В углу 
экрана появится зеленый квадратик — это и есть копирующий 
курсор. Упомянутыми клавишами, постоянно удерживая $$, его 
можно подвести к нужному месту экрана. Если теперь, не отпуская 
клавишу SS, нажать и держать клавишу I, то копирующий курсор 
побежит вдоль выбранной строки и перенесет текст символ за 
символом в редактируемую строку. Эту операцию можно ком- 
бинировать с вводом символов с клавиатуры обычным порядком. 

Нужно следить за тем, чтобы шрифт, используемый в данный 
момент редактором, был из того же символьного набора, что и 
копируемый текст, а размер шрифта был стандартным (8х8 пиксе- 
лей), иначе копирование невозможно. 
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Предусмотрены также дополнительные сочетания клавиш AAA 
перемещения копирующего курсора: комбинация SS/CS+SS/M пе- 
реводит копирующий курсор в верхний левый угол текущего окна 
(об окнах позже), а SS/CS+SS/N переносит копирующий курсор в 
следующее окно (этот эффект не очевиден, если окна совпадают). 


Листинг программы можно вывести на экран как обычной 
командой LIST, так и нажатием комбинации клавиш SS/CS+SS/K. 
Нужно иметь в виду, что при выводе листинга, занимающего 
болыше одного экрана, он прокручивается до конца: редактор 
MegaBasic не выдает сообщения $сгой. Однако вывод можно при- 
остановить, нажав и удерживая клавишу М. После ее освобож- 
дения прокрутка возобновится. Если же нужно прекратить вывод 
информации, можно воспользоваться командой 


ESCAPE 


Вызывается она одновременным нажатием клавиши Space и Е. 
Кроме прерывания вывода листинга, команда ESCAPE, как и Break, 
прекращает выполнение. бейсик-программ. Более сильный вари- 
ант останова любой программы — команда 


RESET 


Она инициируется одновременным нажатием клавиш Space и В 
(не путать с кнопкой КЕЗЕТ на компьютере, это будет слишком уж 
сильно!). Выполнение RESET, сохраняя в памяти программу, пере- 
водит МедаВаз1с в исходное состояние. Точнее, в условно исход- 
ное, поскольку, к примеру, ни команда RESET, ни даже NEW не 
восстанавливают исходные параметры окон и некоторые другие 
значения, задаваемые системой при запуске MegaBasic. В отдель- 
ных случаях это доставляет неудобства, например, при загрузке 
другой программы вместо отработавшей. 


ШРИФТЫ 
FONT, MODE, VDU, STIPPLE, SPRINT, DOWN 





Начнем работу с MegaBasic с самого простого — изучим его 
шрифтовые возможности. Как уже упоминалось, для подготовки 
примеров мы будем пользоваться русифицированной версией 
MegaBasic 4.К. Это означает, что в оригинальной версии 4.0 один 
из двух латинских символьных наборов (FONT_1) заменен набором 
символов русского алфавита. В нем очертания знаков составляют 
стилистическое единство с сохраненным латинским шрифтом 
(FONT_2). Кроме того, в распоряжении программиста остается стан- 
дартный символьный набор, хранящийся в ПЗУ ZX Spectrum 
(РОМТ_0). 

Итак, мы упомянули оператор, который переключает символь- 
ные наборы. Его формат 


РОМТ _| 


— где i— номер набора (0, 1 или 2). 
Текстовые возможности MegaBasic не ограничиваются выбором 
одного из трех ‘символьных наборов. Он позволяет менять размер 
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символов текущего набора: 4х8, 8x8, 8x16 и 16x16 точек 
(рис. 18). Устанавливаются размеры шрифта оператором 


МОРЕ тм] 


Параметр т может принимать 
значения от 1 до 4, соответству- 
ющие приведенному ряду разме- 
ров шрифтов. Оператор MODE 
используется и с двумя парамет- 
рами: MODE_w,m. В этом формате 
w обозначает номер окна, для ко- 
торого устанавливается размер 
шрифта т. 

Комбинируя названные выше 
операторы обработки шрифтов, 
напишем небольшую демонст- 
рационную программу: 

10 PAPER 1: INK 6: BRIGHT 1: CLS 
15 FONT_1: LET А$="Шрифты”: GO SUB 100 

20 FONT_2: LET A$="Fonts”: GO SUB 100 

30 РОМТ_0: LET A$="Fonts”: GO SUB 100 

40 MODE_1: GO TO 15 

100 FOR N=1 TO 4:MODE_N: PRINT A$: PRINT : PAUSE 40: NEXT N 
110 RETURN 





Рис. 18. Шрифты MegaBasic. 


Обратите внимание, что AAA шрифта FONT_1 (кириллица) не 
выводятся уменьшенные русские буквы в режиме MODE_1. Это 
объясняется тем, что в этом режиме MegaBasic не генерирует 
символы, а пользуется содержащимся в нем специальным (четвер- 
тым) символьным набором (аналогичным применяемому в одном 
из популярных текстовых редакторов Tasword). 


MegaBasic предусматривает и альтернативный способ управ- 
ления размерами символов. Оператор стандартного Бейсика 
PRINT CHR$ с параметрами 1...4 (не используемые Spectrum- 
Бейсиком коды символов} производит то же действие, что и опера- 
тор MODE. Еще один оператор 
MegaBasic, позволяющий достичь то- 
го же эффекта 


и УТТЕР|.. Е... 
— представляется уж совершенным 


излишеством. ЗТТРРЕЕ 6 
В сочетании с режимом FONT_4 мо- — 
жет использоваться оператор GTIPPLE 7 


STIPPLE d 


= заштриховывающий СИМВОЛЫ STIPPLE_1 J 


(рис. 19). Плотность штриховки зада- 
ется параметром 4, рабочие значения Рис. 19. Варианты штриховки 
которого лежат в пределах от 0 («ну- 
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левая» штриховка, символ He отличим OT фона) AO 15 (сплошное 
закрашивание). 

В арсенале MegaBasic есть еще два оператора, нестандартно 
выводящие тексты на экран. Это SPRINT и DOWN. 


SPRINT_x,y,u,v,a$ 


выводит символьную строку с 
увеличением в указанное 
число раз без привязки к зна- 
коместам, то есть начиная с 
произвольной точки экрана. 
Параметры х и у задают коор- 
динаты в пикселях начальной 
(левой верхней) позиции вы- 
вода текста (за начало координат принимается в данном случае 
левый верхний угол экрана); чиу — масштаб увеличения символа 
по горизонтальной и вертикальной координатам (дробные зна- 
чения масштаба округляются до целых}; af — строку символов, 
предназначенную для вывода на экран. 





ОО\/М_п,с,а$ 


тоже распечатывает на экране символь- 
ную строку, правда, без масшта- 
бирования и с привязкой не к точке, а к 
знакоместу, но зато вертикально — 
сверху вниз. Параметры п и с определя- 
ют координаты начальной позиции вы- 
вода (строка, столбец), а а$ — строковую 
переменную, предназначенную для вы- 
вода. 





Теперь существенное замечание. В 
операторах MegaBasic, имеющих отно- 
шение к выводу на экран текстовой информации, размер знако- 
мест (если не оговорено иное) считается равным не 8х8 пикселей, 
как в стандартном Бейсике, а 4х8*. Соответственно, строки 
отсчитываются от верха экрана по-прежнему с 0 по 23, а столбцы 
от левого края экрана, но не с 0 по 31, ас 0 по 63, то есть по 
половинке стандартного знакоместа. 


Следующая программа продемонстрирует возможности SPRINT и 
DOWN: 


10 PAPER 1: INK 6: BRIGHT 1: CLS :FONT_1: LET А$="Шрифт" 
100 FOR U=1 TO 6: LET X=(128—20*U): FOR V=1 TO 20 STEP 2 
110 SPRINT_X,5,U,V,A$ 
115 INK 2:MODE_4:DOWN_5,30,A$: INK 6 
120 PAUSE 40: CLS : NEXT V: NEXT U 
130 GO TO 100 


* Это связано с возможностью MegaBasic выводить символы размером 4 х 8 точек. 
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WINDOW, CURRENT, FX, CLW 





Теперь самое время перейти к описанию возможностей 
MegaBasic по управлению текстовыми окнами. Сразу после за- 
грузки MegaBasic все окна, кроме окна встроенного в MegaBasic 
монитора-отладчика (о нем подробный разговор будет позже), сов- 
падают с основным экраном стандартного интерпретатора. 
MegaBasic позволяет одновременно оперировать десятью окнами. 


WINDOW _.nzc,h,g 


Оператор задает размеры окон. Параметры п (0...23) ис (0...63) 
устанавливают позицию левого верхнего угла окна, соответственно, 
по вертикали и горизонтали, а | (1...24) и а (1...64) — его размер 
(высоту и длину). Координаты задаются в знакоместах. 

Оператор WINDOW устанавливает размеры только текущего (ак- 
тивизированного в данный момент) окна. Окно номер w делает 
текущим оператор 


СУВВЕМТ _ м 


Возможности оконного интерфейса MegaBasic продемонстри- 
руем на примере программы, которая выдает свой листинг в 
каждом из активизируемых по очереди окон: 


4 PAPER 1: CLS 

5 FOR N=2 TO 7: PAPER N—2: INK 9—N 

10 CURRENT_N: WINDOW_N, 4«N, 10,34:FX_1,N 

20 CLW_N,1: REM Оператор очистки окна (описан чуть ниже) 
25 MODE_N,2 

30 LIST: LIST: LIST: LIST 

40 PAUSE 80: NEXT N 

50 GOTO 5 


Управление окнами (правда, не всеми) можно осуществлять и с 
помощью оператора PRINT CHR$ с использованием кодов OT 24 AO 
31, которые стандартный Бейсик оставил вакантными. При этом 
PRINT CHR$ 24 устанавливает текущим окно номер 0, PRINT CHR$ 25 
— окно 1 и далее до PRINT CHR$ 31, который включает окно 7. Окна 
8 и 9 этим способом не управляются. 

Того же самого эффекта можно добиться, используя оператор 
VDU_24...VDU_31. 


Потенциальные возможности оператора 
FX_i,w 


еще ждут своего исследователя. В фирменном описании указыва- 
ется, что он служит для распределения потоков информации между 
окнами. Параметр i определяет вид выводимой информации: 0 — 
командная строка и сообщения об ошибках; 1 — листинг програм- 
мы; 2 — информация, генерируемая в процессе выполнения прог- 
раммы; 3 — встроенный монитор-отладчик МедаВаз1с. Параметр 
м задает номер окна, в которое будет направляться информация из 
указанного потока (значения от 0 до 9). 
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Однако параметр i оператора FX может принимать не только 
значения от 0 до 3, но и 4, 5, 6. При этом параметр м может иметь 
значения вплоть AO 66063! Это побочные, недокументированные 
режимы, о которых никакие руководства не упоминают. Потоки 
FX_4 и ЕХ_5 могут использоваться, вероятно, для управления пе- 
риферийными устройствами. Что касается FX_6,w, то в сочетании 
с рабочими значениями параметра w от 0 до 255 его действие 
аналогично POKE 23609,w, то есть он изменяет длительность звука, 
подтверждающего нажатие клавиши на клавиатуре. 


СЕМ _ [м] т 


осуществляет очистку окна. Если пара- 
метр один (т), то действие оператора 
относится к текущему окну и значение 
этого параметра определяет способ, кото- 
рым будет реализована очистка окна: 


О — заполнение окна цветом фона 
(PAPER), аналогично действию опе- 
ратора CLS Зреснат-Бейсика, но в 
пределах окна; 

1 — производит то же действие, что и 

° CLW_O, но с заполнением цветом 
тона (INK); 

2 — инвертирует изображение в окне 
(меняет цвет фона на цвет тона и 
наоборот); 

3 — заменяет все атрибуты текущего 
окна на постоянные. 

В случае двух параметров в операторе CLW первый (w) уста- 
навливает номер окна, к которому относится действие оператора. 
Например, оператор CLW_w,3 заменяет атрибуты окна с номером w 
на атрибуты, установленные AAA текущего окна. Необходимо 
внимательно следить за тем, чтобы значение параметра м не вы- 
ходило за разрешенные пределы (0...9). Иначе в лучшем случае 
программа прервется сообщением Y too large, в худшем, но наибо- 
лее вероятном — зависнет. Зато второй параметр (он бывает и 
единственным) можно увеличивать хоть до миллиона, поскольку 
любое значение свыше трех приравнивается трем. 


В заключение рассказа о текстовых окнах приведем эффектную 
программу с использованием операторов WINDOW и CLW, ими- 
тирующую постепенное раскрывание окна: 


5 PAPER 0: INK 5: BRIGHT 1: FONT_1:MODE_4 
10 CLS: FOR N=1 TO 10 
15 LET S=10—N: LET L=33—3+*N: LET H=2*N+1: LET W=6#N 
20 WINDOW_S,L,H,W:CLW_1 
30 NEXT М 
40 STIPPLE_(RND*60): PRINT AT 9,15; INVERSE 1; PAPER 1;"О K H O” 
50 PAUSE 80: GO TO 10 
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АТРИБУТЫ 


INVERT, FADE, SWAP, CHANGE 





С одним из операторов, работающих с атрибутами экрана, мы’ 
уже встретились в предыдущем разделе. Это оператор CLW, кото- 
рый позволяет очищать окно с заменой атрибутов. Похожие дей- 
ствия выполняют и некоторые другие операторы, предусматри- 
вающие, наряду с выполнением своей основной функции, моди- 
фикацию атрибутов: SCROLL, PAN, GET, РОТ. Эти операторы будут 
рассмотрены в тех разделах описания, где речь пойдет об их 
основном назначении. Сейчас же остановимся на операторах 
MegaBasic, занимающихся исключительно обработкой атрибутов: 
INVERT, FADE, CHANGE и SWAP. Сразу отметим, что действие всех 
перечисленных операторов распространяется на весь экран, то 
есть они игнорируют деление экрана на окна. 


INVERT 


инвертирует изображение на экране, заменяя цвет фона на цвет 
тона и наоборот. Используется без параметров. 


Применение оператора 
FADE a 


несколько сложнее, HO зато действие его гораздо эффектнее. Этот 
оператор имеет один параметр, который задает значение байта 
атрибутов. Оператор просматривает значения всех атрибутов эк- 
рана* и уменьшает на единицу те из них, 
которые не совпадают C a. Операция выпол- 
няется циклически до тех пор, пока все зна- 
чения атрибутов не сравняются с а. Эта 
процедура вызывает появление на экране 
довольно интересных цветовых эффектов. 

Рабочее значение параметра а может на- 
ходиться в пределах OT 0 до 255, но опера- 
тор FADE «проглатывает» и любые другие 
числа, реагируя при этом только на остаток 
от их деления на 256. 


Операторы CHANGE_al,a2 и SWAP_az2,al 
также осуществляют замену атрибутов, но 
используют по два параметра, каждый из 
которых представляет собой значение 
атрибута. 


Оператор 
SWAP_at,a2. 


служит AAA замены атрибута a2 атрибутом 
al: находит на экране знакоместа с атрибу- 
тами, равными значению параметра а2, и ^^ 





* _ Система построения числовых значений атрибутов.в MegaBasic не отличается от 


принятой в $рес\гит-Бейсике (см. стр. 55). 
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устанавливает в них новые атрибуты, соответствующие значению 
параметра а!. Скажем, SWAP_BIN 00000001 ‚ВМ 10000001* включит 
FLASH в тех знакоместах экрана, в которых изображение состоит из 
синих точек на черном фоне. 


Оператор 
СНАМСЕ _а1,а2 


производит поиск и замену сразу нескольких атрибутов. Работает 
CHANGE слелующим, довольно нетривиальным, образом. Он изме- 
няет по всему экрану те биты атрибутов, которые не совпадают в 
параметрах al и a2. Tak, если воспользоваться теми же значениями 
параметров, что и в приведенном выше примере с оператором 
SWAP, то есть выполнить CHANGE_BIN 00000001 ВМ 10000001, то FLASH 
включится по всему экрану. Зато если потребуется, к примеру, 
перекрасить желтым цветом все, что изображено синим, красным 
или фиолетовым, независимо от фона, то эту задачу можно ре- 
шить, ввеля CHANGE_BIN 00000011,BIN 00000110. Из операторов SWAP 
пришлось бы в этом случае составлять длинную цепочку, учитыва- 
ющую все варианты фона. 


КАДРЫ 


GET, PUT, SPUT 





MegaBasic позволяет копировать часть экранного изображения 
(которую мы будем называть кадром) в свободную область памяти 
(далее именуемую буфером) и возвращать кадр в прежнем или 
измененном виде на старое или новое место экрана. 


Кадр копируется в буфер оператором 
GET_m,z,n,c¢,h,g 

— а возвращается Ha экран оператором 
PUT_m,z,n,c,hg 


Форматы операторов GET и PUT, в принципе, схожи. 

Параметр т (0...6) задает принцип, по которому кадр совмеща- 
ется с изображением в буфере (GET) или на экране (PUT). При т=0 
копируемое изображение заменяет собой предыдущее. При m=1 
происходит логическое сложение (ОК) старого и нового содер- 
жимого; при т=2 или 3 сложение осуществляется по принципу 
«исключающего ИЛИ» (XOR). Операции, производимые при m=4, 
5 и 6, аналогичны операциям при т=0, 1 или 2, но с той лишь 
разницей, что при копировании знакоместам в кадре присваива- 
ются текущие постоянные атрибуты. 

Параметр т в операторе СЕТ обычно устанавливают равным 
нулю (иные значения в фирменном руководстве даже не упомина- 
ются). Однако ненулевое значение т может пригодиться, если 


Рекомендуем задавать значения атрибутов в двоичной форме — это более на- 
ГЛЯДНО. 
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нужно совместить в памяти изображения ABYX или более кадров. 
Нужно соблюдать только одно условие — кадры должны быть 
одинакового размера. 

Второй параметр (2) в операторах GET и PUT устанавливает 
начальный адрес буфера, с которым взаимодействует выделенный 
кадр. Нужно следить, чтобы буферы не перекрывались и, естест- 
венно, не «наезжали» на колы MegaBasic, то есть не оказывались 
выше адреса 45000. 

Остальные четыре параметра задают координаты и размеры 
кадра в «нормальных» знакоместах — 8х8 пикселей; начало ко- 
ординат — левый верхний угол экрана. Параметры п и с указыва- 
ют, соответственно, вертикальную и горизонтальную координаты 
верхнего левого угла кадра. Параметры h и а определяют высоту и 
птирину кадра. К их значениям в операторе PUT предъявляется 
жесткое требование — они должны в точности совпадать со зна- 
'°HHAMH параметров h и g, использованными предшествующим 
сператором СЕТ, иначе возникнут искажения изображения. 

Несколько слов о рабочих и допустимых значениях параметров. 
Рабочими значениями параметра т являются целые числа от 0 до 
6. Но и любые другие значения не приводят к ошибке, так как 
MegaBasic использует только 4 младших бита двоичного представ- 
ления целой части параметра. 

`ледующий параметр — адрес буфера 2 — лолжен указывать на 
свободную область памяти. Его рабочие значения обсуждались 
чуть раньше. Произвольные значения также принимаются опера- 
торами СЕТ и PUT и пересчитываются к приемлемым AAA 
/.Х Spectrum значениям адресов. Однако трудно предположить, где 
окажется буфер, если указать, к примеру, восьмизначный адрес. 

Рабочие значения остальных четырех параметров операторов 
SET и PUT должны быть такими, чтобы весь кадр попадал в пределы 
экрана. Допустимые значения вертикальной координаты совпада- 
ют с рабочими, а горизонтальной позволяют однократный переход 
правой части кадра, не поместившегося целиком на экране, на ле- 
вую сторону экрана. Нулевых значений высоты и ширины кадра 
операторы GET и PUT не любят (вплоть до зависания программы). 


Прежде чем приступить к использованию оператора СЕТ, нужно 
зарезервировать с помощью CLEAR участок памяти под буфер. Cae- 
лать это можно и «с запасом», но в принципе минимальный необ- 
ходимый объем памяти для буфера (в байтах) легко рассчитывается. 
Он равен 9-KpaTHOMY произведению ширины на высоту кадра, вы- 
раженных в «старых» знакоместах (8х8 точек). 


Пример работы с операторами СЕТ и PUT, несмотря на свое 
пгутливое содержание, на самом деле представляет собой весьма 
практичную подпрограмму вызова оверлейного меню: 


10 CLEAR 29999:FONT_1:CURRENT_4: PAPER 0: INK 0:CLW_4,0: LET 
L=4: LET S=4: LET H=12: LET G=24:WINDOW_L,S*2,H,G*2 

20 MODE_2: PRINT PAPER 0; INK 0;AT 1,16;"M EH tO” '' 
"На закуску — Селедочка” ' "На первое — Щи с грибами" 
"На второе — Бифштекс по-деревенски” ' 


"На третье — Бланманже” '' "Напитки в ассортименте” 
30 PAPER 7:GET_4,30000,L,S,H,G 


Ul 
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40 CURRENT_2:MODE_4:STIPPLE_10: FOR N=1 TO 30: PRINT INK 
(1+RND*6);"Yoxe несут меню!": NEXT М 

50 LET L1=1+RND*4:; LET $1=1+RND*4:GET_0,35200,L1,S1,H,G 

60 PUT_0,30000,L1,S1,H,G: PAUSE 500 

70 PUT_0,35200,L1,S1,H,G 

80 PAUSE 120: GO TO 40 


В MegaBasic существует еще 
один оператор (SPUT), который как 
и PUT, переносит кадр из буфера на 
экран. Но делает он это с изме- 
нением масштаба. Оператор SPUT 
тянет за собой рекордное количест- 
во параметров — целых семь: 


SPUT_1z,x,y,u,V,g,h 


Некоторые из параметров совпа- 
дают с параметрами операторов 
GET и PUT, другие напоминают 
параметры SPRINT (см. стр. 208). 
Первый параметр (2) указывает ад- 
рес буфера. Параметры х иу зада- 
ют координаты размещения верх- 
него левого угла кадра на экране. Координаты указываются не в 
знакоместах, как для предшествующего оператора GET, а в пиксе- 
‘‚лях (за начало координат принимается.верхний левый угол экра- 
на). Следующие два параметра оператора SPUT (и и у) определяют 
масштабы увеличения выводимого изображения, соответственно, 
по горизонтали и вертикали. Наконец, параметры g ив, каки в 
операторах GET и. PUT, определяют размер (высоту и длину} -исход- 
ного.кадра. Но в операторе SPUT они задаются необычным образом: 
в то время как g указывается в знакоместах, h задается в пикселях, 
то есть в 8 раз. превышает значение, подставленное ‘в предшеству- 
ющий оператор СЕТ..Оператор SPUT всегда выводит изображение в 
постоянных атрибутах, то есть так, как если. бы в операторе PUT 
использовался режим т=4. 





„СПРАЙТЫ 


SPROFF, SPRON 





Существенным преимуществом системы управления спрайта- 
ми MegaBasic по сравнению, скажем, со ‘специализированным 
пакетом Laser Basic является обеспечение независимости движе- 
ния спрайтов от работы основной программы. Спрайты обрабаты- 
ваются в фоновом режиме (с использованием прерываний), а 
основная программа продолжает выполняться своим чередом. 

MegaBasic способен -передвигать одновременно восемь спрай- 
тов. Кроме того, каждый спрайт может содержать набор фазовых 
картинок или просто. фаз (ло 255), которые в процессе движения 
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спрайта чередуются, создавая 
эффект мультипликации. Это 
еще одна особенность систе- 
мы управления спрайтами в 
MegaBasic. Конечно, возмож- 
ность одновременной обра- 
ботки столь большого количе- 
ства спрайтов и их фаз чисто 
теоретическая, поскольку AAA 
размещения такой уймы 
картинок потребовалось бы 
72  килобайта — свободной 
памяти. Но, по крайней мере, 
один-два «полных» (то есть 
включающих 255 фаз) 
спрайта, занимающих по 9 
килобайт, запустить можно. Замечено, что не все Spectrum-CcoB- 
местимые машины отечественной сборки успешно справляются с 
одновременной обработкой большого (свыше четырех) числа 
спрайтов, независимо от числа фаз. 


Управление спрайтами происходит через ячейки памяти, назы- 
ваемые системными переменными спрайтов. Записывая в них тре- 
буемые значения, можно задавать направление и скорость 
движения спрайтов, менять количество фаз и частоту их смены и 
т. д. Перемещение спрайтов происходит дискретно. Направление и 
скорость движения задается величиной шага (в пикселях) и часто- 
той следования шагов. Движение спрайтов и смена их фаз — два 
_ не зависимых друг от друга и от основной программы процесса. 


По замыслу создателя МедаВаз1с Майка Лимана, в один пакет с 
ним должна входить программа Sprite Designer, формирующая не 
только изображения спрайтов, но и, что особенно ценно, файл 
системных переменных спрайтов. К сожалению, несмотря на ши- 
рокое распространение различных версий MegaBasic, у нас в 
стране обнаружилось пренебрежение этой программой. Поэтому 
пришлось отказаться от запланированного описания работы со 
Sprite Designer. Тем не менее, той информации, которая при- 
водится ниже, а также примера в конце этого раздела, будет вполне 
достаточно для овладения довольно сложной системой управления 
снрайтами в MegaBasic. 





MegaBasic предусматривает использование спрайтов только од- 
ного размера: 16х16 пикселей, то есть 2х2 знакоместа. Это, конеч- 
но, минус по сравнению с Laser Basic. Однако при необходимости 
можно попытаться параллельно запустить несколько спрайтов, со- 
ставляющих части одной картинки. 

Нетрудно подсчитать, что изображение спрайта, точнее, одной 
его фазы, размером 2х2 знакоместа займет в памяти, включая атри- 
буты, 36 байт. Объем памяти, необходимый для размещения всех 
нужных спрайтов, также легко вычисляется умножением общего 
числа фаз всех спрайтов на 36. Соответствующее место необходимо 
зарезервировать в памяти с помощью оператора CLEAR. 
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Каким же образом можно создавать спрайты, не располагая 
программой Sprite Designer? Для начала нужно нарисовать все 
фазы одного спрайта в каком-либо графическом редакторе и 
записать экранный файл. На экране помещаются 192 фазы, этого 
в большинстве случаев вполне достаточно. Если мы располагаем 
картинкой с изображениями фаз, то дальнейшее превращение ее 
в полноценный спрайт, который может обрабатываться MegaBasic, 
не составит труда. Это позволяет сделать оператор СЕТ (см. 
стр. 212). Он предназначен для записи в память изображения 
кадра, но применим и для записи спрайтов, поскольку формат 
хранения в памяти кадров и спрайтов совершенно одинаков. 

Следующая программа поясняет технологию формирования 
спрайтов на примере двух спрайтов, каждый из которых состоит из 
48 фаз*: 

10 CLEAR 41535: FOR М=0 TO 5: FOR N=1 ТО 16 

20 PRINT АТ M*2,N*4—4; N+16*M 

30 NEXT М: NEXT М: REM Формирование экранного файла 

40 DIM Q(96,3) 

50 FOR L=1 TO 96: LET Q(L,1)=2+(L—1): IF Q(L,1)>=32 THEN LET 
Q(L, 1)=Q(L,1)—32+INT ((L—1)/16): REM Гориз. координата 

60 LET Q(L,2)=2*INT ((L—1)/16): REM Верт. координата 

70 LET Q(L,3)=41500+36+*L: REM Адрес размещения фазы 

80 GET_0,Q(L,3),Q(L,2),Q(L,1),2,2: REM Запись фазы в память 

90 NEXT L 

100 SAVE “SPRITES” CODE 41536,96*36: REM Сохранение спрайтов 


В этом примере сначала формируется экранный файл с изобра- 
жениями фаз спрайтов, представляющими собой пронумерован- 
ные квадратики (для спрайта 0 — с номера 1 по 48, для спрайта 1 
— с номера 49 по 96). Затем фазовые картинки оператором СЕТ 
последовательно снимаются с экрана и помещаются в память. 


MegaBasic располагает двумя операторами, которые управляют 
спрайтами: SPRON и SPROFF (хотя достаточно только первого, как 
выяснится из дальнейшего описания). 


SPRON_ s,m 
запускает движение спрайта. Параметр $ указывает номер спрайта 
(от 0 Ao 7), т — принцип вывода (m=1 — изображение спрайта 


накладывается на содержимое экрана по принципу ОК; т=2 и 
более — по принципу ХОК). Попытка запуска спрайта с номером, 
выходящим за пределы 0...7, чревата сбоем программы. 


Как уже было упомянуто, спрайты в MegaBasic движутся не- 
зависимо от выполнения основной программы. То есть запущен- 
ный оператором SPRON спрайт будет продолжать движение, прелд- 
писанное ему системными переменными спрайта (о них ниже), 
одновременно с работой операторов, следующих за SPRON. Оста- 
новка произойдет только на время выполнения операций с маг- 
нитофоном. Значения системных переменных можно корректи- 


* 
При необходимости нетрудно написать и специальную программу для форми- 


рования спрайтов, аналогичную программе Spriter, приведенной для Laser Basic. 
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ровать, на что мгновенно будет реагировать спрайт (менять ско- 
рость, направление движения ит. д.). 


Выполнение оператора 
$РВОЕЕ $ 


остановит движение спрайта с номером $. Естественно, все спрай- 
ты остановятся и с прекращением выполнения программы. 

Инструкция SPRON_s,O также прекращает вывод спрайта с номе- 
ром $, и, следовательно, SPROFF можно считать лишним. Оператор 
SPRON_s,255 прекращает вывод не только спрайта $, но и всех 
спрайтов с номерами, болышцими $. SPRON_0,255 вообще останав- 
ливает работу со спрайтами. 


Но, как уже говорились, для оперирования спрайтами недоста- 
точно иметь их изображения и использовать операторы SPRON и 
SPROFF. Необходимо еще должным образом установить системные 
переменные спрайтов. 

С каждым спрайтом связана своя область системных перемен- 
ных размером 18 байт внутри тела самого MegaBasic. Эта область 
начинается с адреса 56750 для спрайта с номером 0 и простирает- 
ся до 56893 для спрайта 7. 

Приведем назначение и адреса системных переменных отно- 
сительно адреса а начала области переменных каждого спрайта: 


а+0 — значение параметра т, фигурирующего в операторе SPRON 
и обозначающего способ вывода спрайта $. Выполнение 
оператора РОКЕ а, т аналогично действию SPRON_s,m; 


a+! — текущая горизонтальная координата (от 0 до 255) позиции 
вывода спрайта; 
а+2 — текущая вертикальная координата (от 0 до 175). Занесение 


по этому адресу значения, большего 175, может привести 
к сбою. Выполнив POKE a+1,x: РОКЕ a+2,y, можно задать 
начальную позицию вывода спрайта; 


а+3 — размеры шага (в пикселях) при перемещении спраита, 

а+4 соответственно, по координатам х и у, то есть значения, на 
которые увеличивается содержимое переменных а+1 и а+2 
за один шаг. Если ячейки а+3 и а+4 содержат нули, спрайт 
будет стоять на месте, только меняя фазы. Заносимые в 
ячейки а+3 и а+4 числа от 0 ло 127 придают спрайту 
движение, соответственно, слева направо и сверху вниз. 
Числа 128...255 — движение в обратном направлении (255 
— минимальная скорость, 128 — максимальная). Не реко- 
мендуется использовать максимальные значения перемен- 
ных а+3 и а+4, лучше ограничиваться приращениями не 
более 30 пикселей; 


а+5 — частота шагов. Чем больше содержимое этой ячейки, тем 
быстрее движется спрайт (при прочих равных условиях); 

а+6 — внутренняя системная переменная, связанная с шагом; 

а+7 — число фаз спрайта (до 255). Значение должно точно отве- 


чать замыслу, иначе возможен пропуск фаз или вывод 
непредусмотренных изображений; 


а+8 — текущая переменная, указывающая номер выводимой в 
данный момент фазы; 
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а+9 — частота смены фаз. Чем больше содержимое этой ячейки, 
тем быстрее меняются фазы; 

а+10 — внутренняя системная переменная, связанная с частотой 
смены фаз; 

а+11 двухбайтовое число, указывающее адрес начала разме- 

а+!2 ~ щения в памяти первой фазы спрайта; 

а+13 — внутренняя системная переменная; 

а+14 — внутренняя системная переменная; 


а+15 — числовое значение атрибута, которым закрашивается след, 
оставляемый спрайтом; 


а+16 — не используется; 


а+17 — конец области системных переменных данного спрайта, 
всегда содержит единицу. 


После подбора параметров движения спрайтов, можно со- 
хранить системные переменные на ленте оператором 


SAVE "SPR.sys"CODE 56750,144 


Выяснив назначение системных переменных, попробуем 3a- 
пустить два спрайта, сформированные программой, приведенной 
на стр. 216. Добавим в нее слелующие строки и запустим*: 


200 LET $0=41536: LET $1=43264: КЕМ Адреса размещения спрайтов 

210 LET а0=56750: LET a1=56750+18: REM Адреса начала системных 
переменных спрайтов 

220 РОКЕ а0+7,48: КЕМ Задание числа фаз 0 

230 РОКЕ а0+15,6 

240 FOR n=0 ТО 17: POKE ai+n, PEEK (a0+n): NEXT n 

250 DOKE_a0+11,s0: REM Задание адреса спрайта 0 

260 ООКЕ_а1+11,51: КЕМ Задание адреса спрайта | 

270 РОКЕ а! +1,0: POKE а!+2,40 

280 CLS: $РКОМ_0,2: SPRON_1,2: PAUSE 0: REM Запуск спрайтов 

290 SPRON_0,255:SPRON_1,255: REM Прекращение вывода спрайтов 


AAA спрайта с номером 0 почти все системные переменные 
устанавливаются при инициализации МедаВаз1с. Поэтому для на- 
чала работы с этим спрайтом достаточно задать значения только 
трех переменных. Это переменная а+7 (количество фаз в спрайте, 
в данном случае — 48 для обоих спрайтов}, двухбайтовая перемен- 
ная а+11, а+12 (адрес первой фазы спрайта) и переменная а+15 
(атрибут закраски следа от спрайта). Значения системных пере- 
менных спрайта номер 1 копируются из области переменных 
спрайта 0 (строка 240). Затем в строке 260 задается адрес спрайта 
1, ав строке 270 — его начальные координаты. 


В программе использован оператор MegaBasic DOKE — двухбайтовый аналог 
РОКЕ (см. стр. 226). 
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SCROLL, РАМ, SCROLLW, PANW 


Для того чтобы закончить описание средств MegaBasic, слу- 
жащих для обработки изображений, кратко расскажем об операто- 
pax скроллинга SCROLL, SCROLLW, РАМ и PANW. 


Все четыре названных оператора прокручивают изображение в 
текущем окне: SCROLL и SCROLLW по вертикали, а РАМ и PANW по го- 
ризонтали. Операторы SCROLL и РАМ реализуют обычный скрол- 
линг, в результате выполнения которого изображение, ушедшее за 
пределы окна, теряется. Операторы SCROLLW и PANW при смеще- 
нии изображения возвращают его ушедигую часть с противополож- 
ной стороны окна, то есть обеспечивают циклический скроллинг. 


В операторах 


SCROLL т,у 
РАМ _т,х 


параметр т определяет способ закрашивания освобождающегося 
при скроллинге поля. Если значение т четно, то закрашивание 
осуществляется цветом фона, установленным для данного окна, 
нечетно — цветом тона. Параметры x и у задают величину и 
направление смещения изображения в пикселях по соответствую- 
щей координате. 


SCROLLW_y 
PANW _х 


имеют по одному параметру, которые по смыслу совпадают CO 
вторыми параметрами операторов SCROLL и РАМ. 

Значения параметров х и y могут быть произвольными, ‘исполь- 
зуется только остаток от их деления на 256. Максимальное сме- 
щение происходит при значениях х или у, равных нулю, 
минимальное — когда х или у равны единице. При положительных 
значениях ‘параметров скроллинг идет вверх и вправо, при отрица- 
тельном — вниз и влево. 


Применение операторов скроллинга достаточно очевидно из 
примера: 


10 PAPER 5: ИМК 1: CLS 

100 CURRENT_4:WINDOW_46,18,12,28: PAPER 6: INK 2: MODE_4 

105 CLW_1: PRINT "SCROLL ” 

110 PAUSE 10:SCROLL_1,—80: REM Обычный верт. скроллинг 

120 CLW_1: PRINT "SCROLLW"” 

130 PAUSE 10:SCROLLW_128:SCROLLW_—128: REM Циклический 
верт. скроллинг 

140 CLW_1: PRINT "PAN ” 

150 PAUSE 10:PAN_0,128: REM Обычный гориз. скроллинг 

160 CLW_1: РАМТ "PANW ": REM Циклический гориз. скроллинг 

170 PAUSE. 10:PANW_128:PANW_—128. 

180 STOP 
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PLAY, SOUND, SON, SREP, SOFF 





Дополнительные звуковые возможности MegaBasic реализуют- 
ся двумя операторами: PLAY и SOUND. Совместно с SOUND работают 
операторы SON, SREP и SOFF, играющие роль переключателей. 


Оператор PLAY воспроизводит заданные звуки непосредственно 
в момент своего выполнения интерпретатором MegaBasic. При 
этом, естественно, выполнение каких-либо других операторов воз- 
можно лишь после завершения действий, предписанных PLAY 
(аналогично оператору ВЕЕР Зресиит-Бейсика). 

Иначе работает оператор SOUND. Он лишь закладывает в спе- 
циальный «звуковой буфер» данные, необходимые для воспроиз- 
ведения звука, а «спусковым крючком» служит оператор SON, 
запускающий отработку данных. В этом случае на фоне вос- 
производимого звука возможно продолжение хода программы 
(работа в среде так называемого «генератора звука на преры- 
ваниях»). 

Прежде чем рассматривать назначение параметров, входящих в 
операторы PLAY и SOUND, слелаем несколько общих оговорок. Bo- 
первых, высота звука указывается не в герцах или нотах той или 
иной октавы, а в условных единицах в интервале от 1 до 256. При 
выходе значений за эти пределы учитывается только остаток от 
деления на 256. Во-вторых, длительность звучания ноты задается 
не в единицах времени, а просто количеством звуковых коле- 
баний, поэтому при прочих равных условиях более высокие звуки 
оказываются короче. 

Отдельно работающие операторы PLAY и SOUND не позволяют 
составлять музыкальные фразы, основное их назначение — гене- 
рация разнообразных звуковых эффектов. 


Операторы PLAY и SOUND используют по пять параметров: 
PLAY m:s,f,r,q[.0,q...] 
SOUND _a,m,q,r,n 


Сначала рассмотрим параметры, которые в обоих операторах 
имеют одинаковый смысл, и, естественно, обозначены одинако- 
выми буквами, хотя они и стоят на разных позициях: 


т — «качество» звука: 0 — чистый тон, ненулевое значение — 
шум; 
г _ число шагов изменения частоты в пределах одного цикла 


звучания. В операторе PLAY значение этого параметра мо- 
жет быть сколь угодно большим, а в операторе SOUND только 
от 1 до 256. Поскольку действие оператора PLAY не удается 
прекратить даже командами MegaBasic ESCAPE (Space/E) и 
RESET (Space/R), то в случае «перебора» значения параметра 
г в операторе PLAY проще перезагрузить MegaBasic, чем 
дожидаться окончания трелей; 


q — смещение частоты от шага к шагу в условных единицах 
(1...256). Значения параметра от 1 до 127 соответствуют 
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повышению частоты, a OT 129 AO 256 — понижению. При 
а=0 или q=128 высота звука не меняется. 
Можно помещать в один оператор PLAY несколько пар парамет- 
ров г и а с разными значениями, что позволяет разнообразить 
звук. Например: 


РЕАУ_0,10,1000,10,10,20,20 


Следующие два параметра используются только в операторе 
PLAY: 


$ — темп звучания. Ни в одной из версий MegaBasic не удалось 
заметить, что значение этого параметра как-то влияет на 
работу PLAY; 


{ — начальная частота звука (1...256)*. 


В операторе SOUND тоже имеются два параметра, которым нет 
аналогов в PLAY: 


а — способ заполнения звукового буфера: при а=0О данные в 
буфере заменяются, а при ненулевом значении параметра 
добавляются к содержимому буфера. Звуковой буфер опе- 
ратора SOUND довольно емкии, но не «резиновый». При ero 
переполнении возможен сбой программы, поэтому следует 
помнить. что SOUND с нулевым параметром а очищает 
буфер; 

п — число повторений (1...256) циклов, заданных параметром г. 


Как уже говорилось, генерация звука, «заложенного» в буфер 
оператором SOUND, запускается оператором 


SON 


Вспомогательный оператор 


SREP_m 


обычно «ходит в паре» с оператором SON. Инструкция SREP_O задает 
однократное воспроизведение последовательности звуков из буфе- 
ра, а ненулевое значение т приводит к циклическому повторению 
звукового эффекта, прервать которое можно только оператором 


SOFF 
Естественно, звук прерывается также при остановке программы. 


Использование всех пяти операторов MegaBasic, управляющих 
звуком, иллюстрируется слелующим примером: 


10 LET m=0 

15 GO SUB 2000 

20 SON: PAUSE 50: GO SUB 1000 

30 SOFF: LET m=NOT m: GO TO 15 
1000 РЕАУ_0,10,1000,10,10: RETURN: REM Музыка 
2000 SOUND_1,m,100,5,5:SREP_1: RETURN: REM Шум 


Как ни странно, но в операторе SOUND не задается начальная частота звука, что, 
впрочем, компенсируется очень быстрым развитием звукового эффекта. 
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СТРУКТУРНОЕ ПРОГРАММИРОВАНИЕ 


ENDPROC, BRANCH, MTASK, PCLEAR, REPEAT, UNTIL, POP, PUSH, 
RESTART, BROFF, BRON 





Название этого раздела — «Структурное программирование», 
несколько условно, поскольку его рамки шире. Здесь собраны все 
средства MegaBasic, так или иначе служащие для придания прог- 
раммам внутреннего совершенства (впрочем, не всегда явно обна- 
руживаемого в процессе их выполнения). 

Как почти все диалекты Бейсика AAA ZX Spectrum, MegaBasic 
располагает инструментом процелур (см. также стр. 176, 260). 
Правда, это не совсем «честные» процедуры, поскольку параметры 
их не являются локальными. Из этого следует, что использование 
одних и тех же переменных в процедуре и в основной программе 
может привести к недоразумениям. 

Для оформления какого-либо блока программы в виде процеду- 
ры необходимо задать ее начало (заголовок) и конец. Это делается 
посредством двух операторов: 


@<имя программы>_[<список формальных параметров>] 
в начале процедуры* и 
ENDPROC _<имя процедуры> 


в конце. 

Имя процедуры в операторе ENDPROC в случаях, исключающих 
двусмысленность, может опускаться. 

В заголовке процедуры после символа подчеркивания 
приводится перечень формальных параметров, с которыми над- 
лежит работать процедуре. Ими могут быть числовые и строковые 
переменные. 

Вызов процедуры может осуществляться только из основной 
программы** указанием имени процедуры и, через символ под- 
черкивания, списка фактических параметров, то есть значений 
всех переменных, упомянутых в заголовке процедуры: 


<имя процедуры> _<список фактических параметров> 


Фактические параметры могут быть только конкретными зна- 
чениями (не переменными). 

Имя процедуры может иметь произвольную длину и состоять из 
любых символов (кроме псевдографики, UDG и пробелов}, но 
начинаться должно обязательно с буквы. Длина имени ограничена 
лишь представлениями программиста об удобстве. В качестве 
имен процедур нельзя использовать ключевые слова МедаВаз1с и 
зреснит-Бейсика. 


Приведем пример использования процедур: 


$ СЕ 
10 Z_5,RND+*16,RND#12,52,1,12,5,1,"Nepspit прогон": REM Вызов 


процедуры 


* @- А$ЗСИ-символ с кодом 64. 


Попытка вызова процедуры в виде прямой команды чревата неприятностями. 
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30 7_6,ЮМО*16,РМО*20,44,2,14,6,2,"5есопа run” 
40 СО ТО 10 
1000 @Z_W,C,L,G,F,S,PP,ll,A$: REM Заголовок процедуры 
1010 CURRENT_W:WINDOW_C,L,8,G:MODE_4:FONT_F:STIPPLE_S 
1020 BRIGHT 1: PAPER PP: INK Il:CLW_W,0 
1040 PRINT A$: PAUSE 40 
1050 SCROLL_1,—64 
1100 ENDPROC: REM Конец процедуры 


Здесь процедура 2 имеет 9 параметров и выполняется цикли- 
чески, причем два параметра, определяющие положение окна, 
каждый раз меняют свои значения случайным образом. 


Новые возможности в оперировании подпрограммами открыва- 
ют два схожих по действию оператора BRANCH и MTASK. 


Оператор 
ВКАМСН_п 


после каждой следующей за ним строки программы навязывает 
выполнение подпрограммы, расположенной со строки с номером 
п. Выглядит это так, как будто к каждой строке программы ло- 
весили через двоеточие оператор GO SUB п. Только подпрограмма, 
на которую ссылается ВКАМСН, должна завершаться оператором 
ЕМОРКОС (без имени процедуры), а He RETURN. Прекращается это 
построчное «прыгание» после появления в программе оператора 
ВКАМСН_0. Использование оператора BRANCH проиллюстрировано в 
программе, которая рассчитывает длину магнитной ленты, необ- 
ходимую для заданного времени записи: 


20 CLS 
200 CURRENT_6:WINDOW_4,0,8,30: PAPER 5: INK 1:CLW_O 
205 FONT_1:MODE_2 
210 PRINT INK 1;”ВРЕМЯ" ' "ВОСПРОИЗВЕДЕНИЯ": MODE_3 
215 CURRENT_7:WINDOW_4,34,8,30: PAPER 6:CLW_O 
220 FONT_1:MODE_2: PRINT INK 4;"ДЛИНА ЛЕНТЫ”: MODE_3 
230 BRANCH_400: INPUT "МИНУТ ";М;"СЕКУНД";5: LET A$=STR$ 
M+" ' "+STR$ $+" " " ":CURRENT_6 
240 LET T=M+60+S: LET L=T*.1905: LET A$=STR$ INT 
L+” m”:CURRENT_7: GO TO 230 
400 PRINT AT 3,8; INK 2;А$;" " 
410 ENDPROC 


Оператор 
МТА$К п 


после каждой строки основ- 
ной программы отсылает 
компьютер к подпрограмме 
(начало подпрограммы за- 
дается параметром п). Но 
при каждой отсылке выпол- 
няется не вся подпрограм- 
ма, а лишь одна очередная 
ее строка. Получается эф- 
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фект параллельного выполнения двух программ (основной и подп- 
рограммы): строка из программы — строка из подпрограммы, и 
так до появления оператора MTASK_O. 

Операторы BRANCH и MTASK являются взаимоисключающими, 
иначе говоря, не могут работать одновременно. Причем MTASK 
имеет более высокий приоритет, то есть работать будет именно он 
при попытке одновременного запуска обоих операторов. 


В сочетании с процедурами бывает необходимо использовать 
еще один оператор: 


PCLEAR 


Для того чтобы объяснить его назначение, нужно сначала ска- 
зать о внутреннем стеке МедаВаз1с. Стек обслуживает ветвление 
программ средствами MegaBasic: при входе в процедуры, при 
выполнении операторов BRANCH и MTASK, а также при выполнении 
цикла REPEAT...UNTIL (о нем — дальше). В стеке запоминаются 
номер строки и номер оператора в ней, к выполнению которого 
нужно вернуться после завершения процедуры, подпрограммы 
или цикла. После возврата по стеку адрес возврата (значения 
номеров строки и оператора) снимается с него (стирается). Всего в 
стек помещается до 10 адресов возврата, и, следовательно, имеется 
возможность использовать до 10 вложенных процедур или циклов. 
Если программа структурирована нечетко, возможен останов ее с 
выдачей сообщений о переполнении стека PROC stack overflow или о 
его опустошении — PROC stack underflow. Как раз для того, чтобы 
избежать переполнения стека, и нужен оператор PCLEAR (без пара- 
метров), выполняющий его очистку. 


Теперь обещанный рассказ о цикле REPEAT...UNTIL. Начало 
цикла задает оператор 


REPEAT 


— который используется без параметров. Оператор 


UNTIL_r 


ограничивает цикл снизу и определяет условие его завершения. 
Таким образом, выход из цикла происходит, когда значение пара- 
метра г становится ненулевым. После этого выполнение програм- 
мы продолжается со слелдующей после UNTIL_r строки. Оператор 
UNTIL удобно использовать совместно с логическими операторами, 
что и показано в примере программы, которая экспериментирует с 
различными, в том числе и неразрешенными размерами окон: 


10 CURRENT_6:WINDOW_0,36,12,28: PAPER 5: INK 1:MODE_6,4: 
STIPPLE_12:FONT_1:PCLEAR 

20 REPEAT 

30 LET n=INT (RND*23): LET c=INT (RND*63): LET h=INT (RND*10): 
LET g=INT (RND*40) 

40 PAUSE 30 

50 LET f=(n+h)>23: LET w=(c+g)>63: LET w=h>1: LET s=g>1 

60 IF f OR w THEN POP: PUSH_1,100: LET w=0 
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СТРУКТУРНОЕ ПРОГРАММИРОВАНИЕ 


70 UNTIL_w AND $ 

80 CLW_6,0:CURRENT_5:WINDOW_un,c,h,g: PAPER RND*7: 
МК 9:MODE_1:CLW_5,0: РАМТ "НОРМА!" 

90 RUN 

100 PRINT "ОКНО" ' "СЛИШКОМ БОЛЬШОЕ":КУМ 


MegaBasic позволяет при выполнении оператора UNTIL осушест- 
влять переход не только на начало цикла, но и в любое другое 
место программы (этот прием использован в примере). Для этого 
надо снять с вершины стека адрес перехода, записанный туда 
оператором REPEAT, и занести в стек тр-буемые номера строки и 
оператора в ней. Очистку вершины стека выполняет «беспарамет- 
ровый» оператор 


РОР 


А занесение в стек нового адреса возврата — оператор 


PUSH_s,n 


В нем параметр п задает номер строки, $ — номер оператора в 
ней, куда должен быть осуществлен переход. 

Отметим, что в случае «нормального» выхода из цикла, то есть 
при выполнении условия, записанного в UNTIL, управление будет 
передано слелующему 4a UNTIL оператору, независимо от адреса 
перехода, занесенного в стек оператором PUSH. 


В MegaBasic имеется оператор 


RESTART_n 


— который при сбое программы вместо выдачи сообщения об 
ошибке отсылает компьютер к строке с номером п. К сожалению, 
RESTART реагирует предусмотренным образом только на ошибки, 
характерные для Зресиит-Бейсика, а при ошибках выполнения 
операторов МедаВаз1с по-прежнему выдает сообщения. Тем He 
менее, с учетом этого ограничения, RESTART вполне можно исполь- 
30BaTb, например, для возврата из любого места программы в 
главное меню по нажатию клавиши Break, которое приравнивает- 
ся бреснат-Бейсиком к ошибке. 


Применение оператора RESTART проиллюстрировано примером, 
где в строку 20 умышленно введена возможность периодического 
возникновения ошибки (недопустимое значение параметра в опе- 
раторе РАРЕК): 


10 RESTART_1000:BROFF 
20 CURRENT_6: PAPER ВМО+10: BRIGHT 1: INK 9 
30 CLS : PAUSE 30 
40 GO TO 20 | 

1000 FONT_1:MODE_4:STIPPLE_12 

1010 PRINT АТ 10,20; "ОШИБКА!" 

1020 PAUSE 100: GO TO 20 
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Отмена действия оператора RESTART осуществляется в форме 
RESTART_OFF. Кстати, в этом примере использован также оператор 
противоположного свойства 


BROFF 


Он предотвращает реакцию на клавишу Break. В пример OH 
включен AAA того, чтобы сообщение в центре экрана появлялось 
только в результате ошибки, а не нажатия Break. Действие опера- 
тора BROFF отменяется оператором 


BRON 


Иногда рекомендуют использовать оператор BROFF для защиты 
программ на MegaBasic от несанкционированного доступа. Если 
учесть, что команды ESCAPE и RESTART, о которых мы говорили в 
начале главы, исправно действуют и при отключении клавиши 
Break, то от тех любопытных, кто знаком с MegaBasic, такая защита 
более чем иллюзорна. От тех же, чьи познания ограничены 
Зреснит-Бейсиком, лучшей защитой будет сам текст программы, 
написанный на MegaBasic. 


РАБОТА С МАШИННЫМИ КОДАМИ 


CALL, DOKE, MON 





Теперь расскажем о средствах, которые предоставляет 
MegaBasic для отладки программ в машинных кодах и стыковки их 
с бейсик-программами. 


Для запуска программы в машинных кодах MegaBasic имеет 
оператор 


CALL z 


— где 2 — стартовый адрес программы. OH вполне заменяет собой 
сочетания операторов зресиит-Бейсика RANDOMIZE USR 2, 
PRINT USR 2 и пр., а в силу своей краткости более удобен в среде 
MegaBasic, где ввод операторов осуществляется побуквенно. 


Весьма практичен при отладке программ в машинных кодах 
оператор 


DOKE 1,1 
Он представляет собой не что иное, как лвухбайтовый POKE. 
Параметры: z — адрес, г — лвухбайтовое число, заносимое в 


ячейки с адресами ти 2+1. 


Однако наиболее мощным средством отладки программ в ма- 
шинных кодах является встроенный в MegaBasic монитор- 
отладчик”, представляющий собой вполне самостоятельную 


Монитором называется программа, предоставляющая возможность просмотреть 
содержание ячеек памяти и регистров процессора, записать в них новые значения, 
отладить программу в машинных кодах и пр. 
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РАБОТА С МАШИННЫМИ КОДАМИ 


системную программу. Предусмотрены два способа вызова мони- 
тора: или из редактора MegaBasic командой 


MON 


— или в ходе выполнения программы сочетанием KAABHIL Space/F. 
При этом распахнется окно номер 3 (или окно с номером w, если 
ранее был выполнен оператор FX_3,w, переопределивший окно для 
монитора), представив фронтальную панель монитора (рис. 20). 


Будьте готовы к тому, что монитор 
работает в шестнадцатеричной системе 
счисления. 

Слева и вверху панели монитора 
представлены названия регистров про- 
цессора и их текущие значения. В пра- 
вой части панели отражается фрагмент 
памяти: адрес ячейки, ее содержимое и 
соответствующий символ. Адрес ячейки 
памяти, на которую в данный момент 
настроен монитор (текущей ячейки), выделен инверсным цветом. В 
нижней строке монитора расположена строка, отмеченная CHMBO- 
лом >. Она предназначена AAA ввода и редактирования команд 
монитора. 


Содержимое текущей ячейки изменяется набором в командной 
строке нового значения и нажатием клавиши Enter. После этого 
текущей автоматически становится следующая ячейка. Переход к 
следующему адресу без изменения содержимого ячейки осуществ- 
ляется простым нажатием Enter, а откат на одну ячейку назад — 
нажатием клавииг SS/J. Установить текущей произвольную ячейку 
памяти можно с помощью команды 





М <anpec> 


Монитор позволяет также изменять содержимое регистров. Де- 
лается это командой 


К < двухбайтовое число» 


Регистр, в который заносится значение, отмечен звездочкой (*). 
Перемещается звездочка, и, соответственно, меняется текущий 
регистр с помощью клавиши Р. 





Состояние флагов 















is 
AF*eFE a | a 
HL_88FE в B6 7? 
С 64 7 Адрес и содержимое 
Регистры ВС_5698 р 33 Е текущей ячейки 
IxX_ 9608 83 7 
Bé 7? 
I¥Y_5SC3A 63 7 
Agpeca 


> 






и содержимое ячеек 


Рис. 20. Фронтальная панель монитора. 
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Программа в машинном коде запускается командой 


J <anpec> 


Монитором предусмотрена возможность расстановки так назы- 
ваемых точек останова, что позволяет осуществлять отладку прог- 
рамм. Аля указания места останова адрес, по которому нужно 
«тормознуть» выполнение программы, устанавливается текущим и 
нажимается клавиша $. Отменить точку останова можно клавишей 
О. После останова выполнение программы продолжается при на- 
жатии клавииги К. 


С помощью специальных команд монитора можно скопировать 
блок памяти по произвольному адресу (команда L) или занести BO 
все ячейки выделенного блока памяти какое-либо значение (ко- 
манда 1). Формат этих команд: 


L <‹адрес начала блока> ‹адрес копирования» <длина блока> 


| <адрес начала блока> < длина блока> <байт-заполнитель> 
Выход из монитора происходит по нажатию Space. 


Мы не стали здесь детально описывать приемы работы С МОНИ- 
тором-отладчиком, поскольку эта книга посвящена Бейсику, а не 
программированию в машинных кодах*. 


ПРОЧИЕ ОПЕРАТОРЫ И КОМАНДЫ 


TRON, SPEED, TROFF, DEFG, KEY, PRINTER, BACKUP, EXAMINE 





В MegaBasic существует группа операторов трассировки, слу- 
жащая для отладки беисик-программ. Эти операторы можно 
использовать как в тексте программы, так и в непосредственном 
режиме. «Главным» из них является оператор 


TRON 


Он включает режим замедленного выполнения программы 
(трассировки). При этом в левом нижнем углу экрана высвечива- 
ется номер выполняемой в данныи момент строки (номер операто- 
ра в строке не индицируется). Кстати, когда трассировка 
происходит при работающем операторе МТА$К, номера строк, отно- 
сящиеся к программе и подпрограмме, выделяются разными 
шрифтами. 


Благодаря наличию оператора 


SPEED _ у 
имеется возможность задавать скорость трассировки. При у=0 — 
скорость максимальная, при v=254 — минимальная. Если v=255, 


Более подробно разобраться с монитором-отладчиком поможет книга [1], где 
описан монитор MONS4. 
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ПРОЧИЕ ОПЕРАТОРЫ И КОМАНДЫ 


программа выполняется в пошаговом режиме: по одному операто- 
ру при каждом нажатии'любой клавиши. 


Отменяется режим трассировки оператором 
TROFF 

Оператор 

DEFG_a$,b1,...,b8 


облегчает построение символов, определяемых пользователем 
(UDG). Строковая переменная а$ задает клавишу, при нажатии 
которой в режиме курсора [С] будет вызываться определяемый 
символ UDG, а 8 послелдующих чисел являются байтами, из кото- 
рых складывается соответствующий символ. Удобно задавать числа 
Ь1...68 не в десятичной, а в двоичной форме с использованием 
оператора ВМ 5реснит-Бейсика — это придает наглядность 
процессу формирования символа. 


Из оставшихся нерассмотренными операторов особенно инте- 
ресен 


KEY _ К, а$ 


Он позволяет закрепить за клавишами 0...9 произвольные по- 
слеловательности символов. 

Вызов запрограммированной последовательности осуществля- 
ется в момент редактирования строки комбинацией клавиш 
CS/SS+SS/k, где К задает номер цифровой клавиши (0...9). 

Сама последовательность — это обычная строка символов или 
символьная переменная длиною AO 255 знаков. Она записывается 
на место параметра а$. 

Практически длина послеловательности может и превышать 255 
знаков, но тогда клавиши нужно задействовать, скажем, через 
одну. Иначе «хвост» прелылущей серии наедет на область памяти, 
занятую последовательностью, привязанной к последующей кла- 
више. AAA клавиши 9 это недопустимо, так как она последняя. 
Однако длинные последовательности символов неудобны, посколь- 
ку они выводятся достаточно медленно. Лучше использовать не- 
сколько более коротких серий. 

Если одними и теми же последовательностями символов при- 
XOAHTCA пользоваться постоянно, имеет смысл сохранить их на 
ленте в виде кодового файла и подгружать его в MegaBasic по мере 
необходимости. Область памяти, содержащая информацию о по- 
следовательностях, начинается с адреса 59956. Участки памяти, 
относящиеся к каждой клавише, занимают по 256 байт и должны 
заканчиваться нулевым байтом. Таким образом, если запрограм- 
мирована только одна клавиша 0, то для сохранения «привязан- 
ной» к ней последовательности нужно выполнить OLepaTop 


SAVE "KEYS"CODE 59956,256 
Если запрограммированы все десять клавиш, длина файла BO3- 
растет до 2560 байт. 


Приведем один красивый прием. Если вызываемая клавишей 
последовательность символов представляет собой строку из одного 
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или нескольких операторов, TO пользуясь встроенным монитором- 
отладчиком, можно поставить в конце нее (в области памяти, 
которая начинается с адреса 59956) число 13 (OD в шестнадцате- 
ричном представлении), а вслед за ним ноль. Число 13 является 
кодом клавиши Enter (возврат каретки), поэтому после вызова 
последовательности нажатием CS/SS+SS/k строка операторов по- 
явится на экране и тут же автоматически выполнится. 


Оператор 
PRINTER _| 


обеспечивает простой способ переключения потока выводимой ин- 
формации с экрана на принтер. Чтобы в полной мере оценить 
действие этого оператора, нужно, как минимум, подключить к 
компьютеру принтер и, кроме того, занести в ячейки 59934/35 
адрес драйвера принтера. Если параметр оператора РЕМТЕК_ 
равен нулю, то вывод будет осуществляться на экран, в других 
случаях — на принтер. 

Если после работы с принтером забыть выполнить PRINTER_O, то 
может возникнуть недоразумение — никакой информации на экра- 
не больше не будет появляться. Для исправления положения нужно 
«вслепую» ввести оператор PRINTER_O, и все наладится. 


Два последних описываемых оператора MegaBasic относятся к 
работе с магнитофоном. Один из них 


BACKUP 


представляет собой весьма несовершенный ленточный 
копировщик. С его помощью можно копировать лишь файлы 
четырех стандартных типов (BASIC, CODE, CHARACTER ARRAY и 
NUMBER ARRAY), причем за длиной файла, чтобы он не на- 
ложился на MegaBasic, нужно следить самим. Кроме того, не 
отслеживаются ошибки при загрузке: в любом случае на ленту 
сбрасывается файл той длины, которая указана в заголовке. А 
хуже всего то, что любая бейсик-программа, находящаяся в памяти, 
после выполнения оператора BACKUP ликвидируется, очищая место 
для копируемых файлов. Сам MegaBasic после этого обычно ста- 
новится неработоспособным. Так что если необходимо что-нибудь 
скопировать, не поленитесь загрузить нормальный копировщик — 
затраты времени окупятся. 


И, наконец, оператор 
EX AMINE 


поможет прочесть заголовки файлов с магнитофона: название, 
длину, номер стартовой строки или адрес загрузки кодового блока. 
В отличие от BACKUP, этот оператор вполне безобиден. 


Сказать, что мы дали исчерпывающую информацию о 
МедаВаз1с, будет самонадеянно. Это одна из тех «вещей в себе», в 
которых всегда можно обнаружить что-нибудь новенькое. Поэтому 
дерзайте — и будете вознаграждены. 
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ПРИЛОЖЕНИЯ 


1. Алфавитный список операторов MegaBasic 


Таблица 16. 








пер 


Отмечает начало (заголовок) процедуры 222 
04 


АЧТО_п,К Запускает автоматическую нумерацию 2 
строк программы с номера п и с шагом К 
Инициирует ветвление программы с 


ВАСКУР Включает режим ленточного копировщика 230 
выполнением подпрограммы, 


BRANCH_n 
начинающейся со строки п 
BRON Возобновляет действие клавиши Break 22 






к) 
N 
Ww 


| oO 


CALL_z Запускает программу в машинных кодах с 22 
адреса 2 

СНАМСЕ_а1,а2 Заменяет атрибуты экрана (см. в тексте) 212 

CLW_m,w Очищает окно W или текущее окно 1 

CLW_m способом г 


DEFG_a$,b1...b8 Формирует символ UDG из байтов b1...b8 229 


м“ 


и связывает его с клавишеи а$ 


DELETE_ni nz Удаляет блок программы со строки ni до 204 
строки п2 

DOKE_z,b Заносит двухбайтовое число b в ячейки с 226 
адресами 1 и 2+1 


ОО\ИМ_п,с,а$ Выводит строковую переменную а$, 


2 
атрибутов экрзна до значения a 
Включает шрифт номер f (0...2) 206 


FX_i,w Переключает вывод потока i (0...6) в окно м| 209 


N 
о 






м 
о 
oo 


начиная со строки п (0...23) и столбца с 
(0...63) 






м 


ae 
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GET_m,z,n,c,h.g 





Переносит в режиме т в буфер по адресу 
Z фрагмент экрана с координатами: п — 
начальная строка, с — начальный столбец, h 
— высота, g — ширина 


INVERT Инвертирует атрибуты всего экрана 


KEY_k,a$ Задает строку а$ для вывода клавишами 
CS/SS+SS/k, 

MODE_w,m Устанавливает размер m (1...4) символов 207 

MODE_m для вывода в окно W 


где К — цифровая клавиша (0...9) 
-Вызывает встроенный монитор-отладчик 








м 
— 





No 
Ne 
ье) 






N 
N 
В 





MTASK_n Инициирует параплельное выполнение 223 
подпрограммы, начинающейся со строки п 
Выполняет горизонтальный скроллинг окна 219 





нар (—255...255) пикселей 


PAN_m,,p 
в режиме т (0, 1) 
PANW_p Выполняет горизонтальный циклический 21 
скроллинг окна Ha p (—255...255) пикселей 
PCLEAR Очищает стек процедур 


PLAY_,m,s,f,r,q Воспроизводит музыкальную фразу, пара- 
метры: т — режим, $ — темп, { — началь- 
ная частота, г — число шагов, а — размер 
шага 


Выталкивает из стека процедур последний 225 
адрес возврата (номер строки и оператора) 
PRINTER_i Переключает вывод информации на 
принтер/ экран, i — номер потока 
РОЗН_$,п Заносит в стек процедур адрес возврата 
(п — номер строки, $ — номер 
оператора в ней) 


PUT_m,z,n,c,h,g Возвращает Ha экран кадр, ранее помещен- 
ный в буфер оператором СЕТ: т — 

режим, Z — адрес буфера, п — начальная 
строка, с — начальный стопбец, h — высота 
кадра, g — ширина кадра 


REPEAT Cm. UNTIL 224 

RESTART_n Инициирует/ прекращает переход no 

RESTART_OFF ошибке Ha строку п 

SCROLLW_p Выполняет вертикальный скроллинг окна на | 219 
р пикселей 


SCROLL_m,p Выполняет вертикальный циклический 21 


скроллинг окна на р пикселей в режиме т 





м 
м 
EE 









NO 
NO 
о 







NO 
Ww 
о 












NO м 
= NO 
NO WN 


м 
NI 
м 
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Запускает звуковой генератор в 
соответствии с данными, заданными 
оператором SOUND 














Помещает данные в буфер звукового гене- 
ратора: а — способ заполнения буфера, т — 
режим, а — шаг, г — чиспо шагов, п — 
число циклов 













SPRINT_x,y,u,V,g,h Выводит текст увеличенными символами, 
масштаб и местоположение которых 
определены параметрами: х — гори- 
зонтальная координата (0...255), у — верти- 
кальная координата (0...191), и — увели- 
чение по горизонтали, у — увеличение по 
вертикали, g — ширина, h — высота 


Прекращает вывод спрайтов 


SPRON_s,m Инициирует вывод спрайта номер $ в 
режиме т (0...255) 


SPUT_z,x,y,U,Vv,g,h Выводит на экран изображение кадра с уве- | 214 
личением: 2 — адрес буфера, x — гори- 
зонтальная координата, у — вертикальная 
координата, и — увеличение по 
горизонтали, у — увеличение по вертикали, 
g — ширина, h — высота 


SREP_m Устанавливает однократное циклическое 221 
воспроизведение звуков оператором SON 

STIPPLE_d Осуществляет штриховку символов в 207 
режиме MODE_4 с ппотностью 4 (0...15) 












NO 
N 


N 
Oo 


1 








NI 









SW AP_a?2,al Заменяет Ha экране атрибуты al на 11 
атрибуты а2 


TROFF Отменяет режим трассировки 
TRON Включает режим трассировки 228 


Повторяет группу операторов, заключенных 
между REPEAT и UNTIL, до тех пор, пока 
значение г не станет нупевым 


УВЫ. 51... br Аналог конструкции PRINT СНК$ b1,,... bn, 207 
где bn — коды символов 209 


NJ 
» e) 














WINDOW_un,c,h,g Устанавливает положение и размеры 
текущего окна: 

п — начальная строка (0...23), 

с — начальный столбец (0...63), 


h (1...24) — высота, g — ширина (1...64) 
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2. Распределение памяти при работе с MegaBasic 


Р_РАМТ (23732) ———————— 65535 
Символы, опредепяемые пользователем 
OOS (73675) ——— eee STE 
Интерпретатор MegaBasic 


62515 
Область программируемых клавиш 
59956 
Интерпретатор MegaBasic 
45000 


Свободная область 
RAMTOP (23730) 


E_LINE (23641) 
Переменные Бейсика 
VARS (23627) 
Бейсик-программа 
РКОС (23635) 


3. Использование MegaBasic с системой TR-DOS 


Поскольку MegaBasic работает во 2-м режиме прерываний про- 
цессора (IM2), то на любые попытки обратиться к дисковой опе- 
рационной системе «в лоб» он реагирует весьма болезненно. Что- 
бы организовать корректную работу с TR-DOS, необходимо Ha 
время обращения к диску переключаться в режим прерываний 
IM1. Аля этого нужно добавить в MegaBasic две подпрограммы в 
кодах, вписав в бейсик-загрузчик несколько строк: 


10 CLEAR 44979: REM Опускаем RAMTOP на 10 байт 


40 RANDOMIZE USR 15619: REM : ГОАО "MegaCode”CODE 

41 FOR п=44980 TO 44989: READ i: POKE n,i: NEXT п: REM Разме- 
щаем подпрограммы 

42 ОАТА 243,237,86,251,201,243,237,94,251,201 


90 RANDOMIZE USR 56100: КЕМ Запуск MegaBasic 


Теперь обращаться к диску из MegaBasic можно следующим 
образом: 


100 RANDOMIZE USR 44980 
110 RANDOMIZE USR 15619: REM: LOAD "filename" 
120 RANDOMIZE USR 44985 


В строке 100 происходит переход в режим IMI, затем могут быть 
любые онерации с диском, a 120-я строка восстанавливает 12. 

Отметим, что этот способ не обеспечивает корректного выхода в 
TR-DOS с помощью инструкции RANDOMIZE USR 15616. 
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Первая версия Beta Basic (v.1.0) фирмы Betasoft появилась на 
свет в 1983 г. Она дополнила 5$ресцат-Бейсик более чем 20 но- 
выми операторами и функциями. Потом была написана версия 
1.8 (1984 г.) и, наконец, появились самые мощные версии — 3.0 
и 3.1 (1985 r.)*, которые поддерживают более 40 новых операто- 
ров, расширяют возможности некоторых «базовых» операторов и 
вводят около 30 дополнительных функций. Мы будем описывать 
версию 3.1**. 


В основном, Beta Basic ориентирован на решение вычислитель- 
ных задач и работу с данными и, пожалуй, представляет из себя 
наиболее мощную версию Бейсика для ZX Spectrum. 

Beta Basic имеет развитые средства структурного программи- 
рования и управления программой (процедуры, циклы типа 
DO...LOOP, оператор варианта и т. п.), что заметно упрощает со- 
ставление программ и сокращает время их разработки. Значитель- 
но расширен в нем арсенал средств работы с памятью и реализо- 
ван принципиально новый подход к обработке массивов и строк 
символов: их копирование, склейка, сортировка, поиск по образцу 
в произвольном сечении ит. д. 

Beta Basic располагает богатым набором операторов, обслужи- 
вающих вывод информации на экран. В нем возможна орга- 
низация многооконного режима работы программ (ло 128 окон), 
вывод символов произвольного размера без привязки к знакоме- 
стам. Все это в сочетании с возможностью изменять масштаб 
координатной сетки и перемещать центр координат в любое место 
экрана и даже за его пределы (то есть организовывать работу 
непосредственно в математических координатах) позволяет удобно 
оформлять результаты работы программ в виде графиков, гисто- 
грамм и пр. 


+ 


Есть, правда, еще одна версия — 4.0 (1988 г.), предназначенная для 
ZX Spectrum 128. 

** Файлы: Beta 3.1 (тип BASIC, длина 945 байт) и cBeta 3.1 (тип CODE, длина 18577 
байт, адрес загрузки 46960). 
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Несмотря на то, что Beta, Basic He специализируется Ha работе 
с графикой, он, тем не менее, выполняет многие операции обра- 
ботки изображения: работу со спрайтами, быструю замену цве- 
товых атрибутов, скроллинг окна экрана, заливку замкнутого 
контура ит. д. 

Beta Basic имеет встроенные часы, средства обработки ошибоч- 
ных ситуаций и пошаговой отладки программ (трассировки). 

Важным достоинством Beta Basic является наличие в нем удоб- 
ного редактора программ, в котором реализованы автонумерация 
и перенумерация строк, поиск и замена по образцу, быстрое 
удаление фрагментов программы и многое другое. 


Несмотря на значительное место, занимаемое в памяти интер- 
претатором Beta Basic (около 19 килобайт), его расширенные воз- 
можности с лихвой окупают этот недостаток и позволяют быстро 
разрабатывать эффективные и компактные программы. 


РЕДАКТОР 


KEYWORDS, DEF KEY, AUTO, EDIT, REF, ALTER, JOIN, SPLIT, 
RENUM, DELETE, LIST, MEM() 





Beta Basic, в отличие от своих собратьев — расширений 
Зреснит-Бейсика, в синтаксисе и способе ввода операторов це- 
ликом сохраняет верность традициям, принятым в базовой версии: 
в нем ключевые слова вводятся нажатием лишь одной-двух кла- 
виш. Для реализации этого использован стандартный режим кур- 
сора [С] (Graphics), включаемый комбинацией клавиш CS/9. На- 
пример, после перехода в режим [С] нажатие клавиши 8 приведет 
к выводу в строку редактора ключевого слова КЕУУ/ОКО5*. 

Однако сказанное вовсе не означает, что в Beta Basic нельзя 
использовать псевдографику и символы, определяемые пользова- 
телем (UDG). Режиму Graphics всегда можно вернуть его старый, 
привычный смысл. Делается это с помощью уже упомянутой ко- 
манды KEYWORDS. Она имеет один числовой параметр. 
KEYWORDS 1 переводит компьютер в режим ключевых слов 
Beta Basic, а KEYWORDS 0 — в режим вывода псевлографических 
символов и символов UDG, который отличается от стандартного 
синклеровского режима Graphics только тем, что-в нем для удобст- 
ва за клавишей 8 закреплен не пробел, а ключевое слово 
KEYWORDS. 

После загрузки Beta Basic устанавливается режим KEYWORDS 1. 


Кроме синклеровского способа ввода ключевых слов, 
Beta Basic допускает и посимвольный их ввод, причем без- 
различно, прописными или строчными буквами (в режимах кур- 
сора [С] или [1.]). 


* Соответствие клавиш ZX Spectrum операторам Beta Basic приведено в Прило- 


жении 1. 
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Редактор Spectrum-BeHcuka — большой интеллектуал: OH, HCXO- 
дя из контекста, знает, в каком месте вводимой строки должно 
появиться ключевое слово, и самостоятельно переводит курсор в 
режим [К]. Избавиться от этого в стандартном Бейсике невозмож- 
но. Зато Beta Basic это позволяет. Находясь в режиме ввода ключе- 
вых слов [К], стоит нажать клавишу Space, и курсор превращается 
в [С] или [1] (в зависимости от того, какой из этих режимов был 
установлен ранее). Для того чтобы вернуться к режиму [К], доста- 
точно переместить курсор на прежнее место либо нажать клавиши 
SS/Enter. Таким образом можно выбирать способ набора текста 
программы: целиком ключевыми словами или посимвольно. 

Закрепить способ ввода ключевых слов можно с помощью той 
же команды KEYWORDS: KEYWORDS 2 отключит возможность 
посимвольного ввода, KEYWORDS 4, наоборот, позволит набирать 
все ключевые слова только посимвольно, а KEYWORDS 3 вернет 
редактор в исходный режим «свободного выбора». 

Посимвольно набранные операторы и функции после нажатия 
Enter (лаже если ввод строки не завершен) заменяются соответст- 
вующими ключевыми словами. Этот эффект проявляется наглял- 
но, если ключевые слова набирать строчными буквами — после 
нажатия Enter OHH заменятся Ha прописные. Если же редактор 
обнаружит ошибку и не захочет вводить строку, найти причину 
будет легко: неправильно набранное ключевое слово так и останет- 
ся записанным строчными буквами. Отметим только, что ошибка 
может быть не только в пропущенной или неправильной букве, но 
и в отсутствии в нужном месте пробела. К примеру, запись CHR$A 
редактор не поймет. 

Однако возможны ситуации, когда набранное с ошибкой ключе- 
вое слово будет интерпретировано как имя переменной и пропу- 
щено редактором. Так, например, если вместо строки LET A=COS T 
набрать LET A=COST, то редактор сочтет это вполне приемлемым и 
спокойно «проглотит», хотя программа будет работать не- 
правильно. 

Все же редактор Beta Basic делает все возможное, чтобы обна- 
ружить и исправить максимум ошибок. Например, если между име- 
нем функции (оператором, другим служебным словом) и аргумен- 
том отсутствует пробел, но аргумент не является именем перемен- 
ной (то есть начинается не с буквы), «ошибка» будет исправлена. 


Beta Basic значительно (ровно вдвое!) расширяет список функ- 
ций языка. Разумеется, было бы бессмысленно пытаться каждой 
HOBOH ap приписать «персональную» клавишу компьютера, 
и разработчики Beta Basic предложили оригинальный и по-своему 
удобный метод ввода имен функций. Сразу оговорим, что он не 
исключает возможность и посимвольного их ввода. 

Все новые встроенные функции заданы с использованием ин- 
струмента описания функций, определяемых пользователем 
(DEF FN и FN)*. Соответственно, и обращаться к ним в тексте про- 


* Если, находясь в Beta Basic, выполнить oneterp LIST 0, то можно увидеть, что 
Е 


строка с номером 0 состоит из операторов DEF FN — в ней и определяются все 
новые функции Beta Basic. 
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граммы нужно тоже стандартным способом — через ключевое 
слово FN, добавляя однобуквенное имя функции. Таким образом, 
определенное число однобуквенных имен функций пользователя 
Beta Basic занимает под имена встроенных функций. 

Для того чтобы в тексте программы встроенные функции OT- 
личались от функций, определенных пользователем, применен 
следующий прием: при наборе конструкции типа 
FN «имя функции», где <имя функции» — зарезервированная буква, 
редактор заменяет эту букву на полное название функции. На- 
пример, после ввода открывающей скобки в строке 


LET a=FN i( 
сочетание FN i будет 3aMe- 110 FOR 1=1 10 3 
нено одним служебным 120 мт — 
словом — именем новой LET а=3749 
функции: IF Рьопе<484 THEN 


LET a=1282, Phone=235 
LET a=INSTRING( 


Преобразование в pa3- 
вернутую форму имен 


LSE 
LET a=19.03, Phone=2d2 
130 NEXT i 





символьных функций 

происходит после ввода 

символа $*. Рис. 21. Фрагмент листинга программы 
Редактор Beta Basic при Beta Basic. 


выводе листинга на экран 
обеспечивает контекстное позиционирование программных строк, 
что делает тексты программ более удобочитаемыми (рис. 21). При 
этом на экран не выводятся двоеточия, разделяющие расположен- 
ные в одной строке операторы — каждый оператор печатается с 
новой строки**. Это свойство редактора, например, позволяет, 
набрав несколько двоеточий подряд, отделить друг от друга пус- 
тыми строками логически завершенные части программы (проце- 
дуры, ОАТА-списки и т. п.). Того же эффекта можно добиться, 
нажимая одновременно CS и Ещег***. 


В режиме редактирования строки нетрадиционно работают кла- 
виши управления курсором. Если в 5ресиит-Бейсике курсор мог 
двигаться только в горизонтальном направлении, а клавишами 
«курсор вверх» и «курсор вниз» перемещался указатель текущей 
строки в листинге программы, то редактор Beta Basic позволяет 
свободно «гулять» по редактируемой строке в любом из четырех 
направлений. При попытке переместить курсор выше либо ниже 
редактируемой строки он перебрасывается в ее конец. Управлять 
же указателем текущей строки можно только при условии, что 
строка редактора пуста и курсор находится в режиме [К]. 


* 
xk 


Полный список встроенных функций Beta Basic приведен в Приложении 2. 

Для экономии места мы все же будем приводить листинги программ в привычном 
виде — разделяя операторы двоеточиями. 

При этом в текст строки помещается управляющий символ CHR$ 15, который 
Beta Basic трактует как пробел (CHR$ 33) плюс возврат каретки (CHR$ 13). 


kkk 
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Доступен в Beta Basic еще один способ набора программных 
строк — через программирование клавиатуры. Оператор 


DEF KEY <"cumson клавиши” > [: < последовательность операторов > [:]] 
DEF KEY <"cumson клавиши" > [; «строка символов|:] >] 


приписывает любой клавише компьютера (кроме CS, SS, Space и 
Enter) <последовательность операторов> или «строку симвопов> — мак- 
роопределение. Макроопределение может быть задано как после- 
довательностью операторов, и тогда оно вводится после двоеточия, 
так и символьной строкой, отделяемой от первого параметра опе- 
ратора точкой с запятой. 

После определения макрокоманды оператором DEF KEY она вы- 
полняется нажатием указанной клавиши в специальном режиме 
курсора [*], введенном в дополнение к стандартным режимам 
курсора. Включается режим [*] нажатием клавиш SS/Space. 

Выполним строку: 


DEF KEY "P”: РАМТ "Hello!”: PRINT "How do you do?” 


Теперь, если в режиме курсора [*] нажать клавишу P, на экране 
появится: 


Hello! 
How do you do? 


Нример можно переписать и так: 


10 LET a$="PRINT ""Нео"": РАМТ ""Но\му do you 4о?""" 
20 DEF KEY "Р";а$ 


Если в конец последовательности, следующей за DEF KEY, 
поместить двоеточие, то она не будет выполнена, а ее текст выве- 
дется в строку редактора. Этим можно пользоваться для помещения 
в строку редактора часто повторяющихся при наборе программы 
фрагментов строк. 

Макроопределение можно «снять» с клавиши, выполнив опера- 
Top DEF KEY с символом данной клавиши без слелующего за ним 
набора инструкций, например, DEF KEY "P”. Одновременно все 
макроопределения удаляются оператором DEF KEY ERASE. 

Следует помнить, что, сохраняя в памяти созданные макроопре- 
деления, интерпретатор несколько опускает КАМТОР. 


Beta Basic избавляет нас от необходимости при вводе програм- 
мы каждый раз набирать номер очередной строки. Включается 
режим автонумерации командой 


AUTO [‹начальный номер > [, <шаг> ]] 


В ней параметр <начальный номер>* задает номер первой добав- 
ляемой к программе строки, а параметр <war> — шаг нумерации 


* _ Для большей наглядности мы будем указывать в формате операторов и функций 


Beta Basic «словесное» название параметров. Однако вполне естественно, что, на- 
пример, параметром < начальный номер > может быть любое целочисленное зна- 
чение (переменная, выражение), которое попадает в разрешенный диапазон (в 
данном случае — 0...9999); под <строкой символов > подразумевается символь- 
ное значение (символьная константа, переменная, выражение); под <числом > — 
числовое значение ит. д. 
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для последующих строк. Команда может не иметь ни одного пара- 
метра либо иметь только один. В первом случае по умолчанию 
предполагается, что оба параметра равны 10. Во втором — единст- 
венный параметр определяет номер первой «автонумеруемой» 
строки, а шаг также равен 10. 

Отменить автонумерацию проще всего, нажав и удерживая 
клавишу Break (С$/$расе) в течение секунды. В момент отклю- 
чения режима AUTO появится сообщение 0 OK: 0,1. Автонумерация 
сбросится и по команде АЧТО 0 или после выполнения любого 
оператора в непосредственном режиме (для этого перед вводом 
оператора надо стереть появившийся в строке редактора очеред- 
ной номер). 

После стирания выскочившего номера можно перемещать ука- 
затель текущей строки. Следует только учитывать, что при возвра- 
те к автонумерации редактор предложит уже не прежний номер, а 
новый — на <war> больше номера строки, на которую установлен 
указатель, хотя строка с таким номером уже может существовать. 


Продолжим рассмотрение команд редактора Beta Basic. 
EDIT [<Homep строки > | 


Эта команда вызывает на редактирование строку программы с 
номером, заданным в параметре, независимо от положения указа- 
теля текущей строки. Если строки с заданным номером не сущест- 
вует, на редактирование будет вызвана строка с ближайшим 
большим номером. Набирается эта команда нетрадиционно, но 
просто: клавишей 0 после любого нажатия Enter. Команда EDIT без 
параметра вызывает на редактирование текущую строку програм- 
мы. Впрочем, набрать EDIT можно и обычным способом — в режиме 
курсора [С] или посимвольно. 


Мощная команда редактора Beta Basic 


REF «ключ для поиска> 


последовательно вызывает на редактирование строки программы, 
включающие в себя текст, заданный в параметре. Ключом для 
поиска может быть имя переменной (массива, процедуры), число- 
вая константа (выражение) или символьная строка, заключенная в 
кавычки. Различий между прописными и строчными буквами не 
делается. 

Если в качестве ключа необходимо использовать содержимое 
символьной переменной, а не ее имя, то последнюю необходимо 
взять в скобки: REF (а$). 

В случае, если образцом является строка символов, на редак- 
тирование будут вызваны строки с любым включением указанного 
набора символов, в том числе с полностью или частично совпада- 
ющими именами переменных. Так, например, команда REF “org” 
вызовет одну за другой на редактирование строки 


78 LET Org=55679 
80 LET Forgo=22.51 
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510 INPUT “Organization number "; Num 
640 REM ORGANIC 


По завершении редактирования очередной найденной строки и 
ввода ее в программу повторное нажатие клавиши Enter поместит 
в нижнюю часть экрана следующую строку, удовлетворяюшую 
условию поиска. Если строка программы содержит искомую под- 
строку в нескольких экземплярах, она будет «вызвана на ковер» 
соответствующее количество раз. 

Выход из этого режима осуществляется так же, как и из режима 
AUTO. 


С помощью команды 
ALTER <ключ для поиска> ТО ‹образец для замены> 


можно осуществлять автоматический поиск и замену фрагментов 
текста программы. Для обоих параметров команды справедливы 
соглашения, принятые для параметра команды REF. Второй пара- 
метр может принимать значение «пустая строка». 

Команда ALTER просматривает 
текст программы и все найденные 
включения последовательностей 
символов или имен переменных 
(массивов, процедур), заданные 
«ключом для поиска», заменяет на 
«образец для замены», указанный 
во втором параметре. 





JOIN [| <Homep строки > | 


Эта команда сцепляет через ABO- 
еточие две соседние строки программы: строку с номером, указан- 
ным в параметре, и следующую за ней. После выполнения коман- 
ды номер присоединенной строки освобождается. К примеру, 
фрагмент программы 


151 РОК i=1 ТО 1000 
152 PRINT PEEK i 
153 NEXT i 
после выполнения команды JOIN 151 будет выглядеть так: 


151 РОК i=1 ТО 1000: PRINT PEEK i 
153 NEXT i 


Команда JOIN без параметра соединит текущую строку и строку, 
следующую за ней. 


SPLIT 


Эта команда обратна по действию команде JOIN: она расщепляет 
строки, составленные из нескольких операторов. В отличие от 
других команд редактора, SPLIT выполняется не введением 
ключевого слова с параметрами, а совершением несложной опе- 
рации в процессе редактирования строк. Разделение производится 
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введением символа <> (клавиши SS/W) в слелдующую за «фантом- 
двоеточием»* позицию редактируемой строки (в этой позиции 
курсор переходит в режим [К]). После нажатия Enter часть строки 
до курсора возвращается с прежним номером в текст программы, 
а остаток строки, словно хвост ящерицы, оказывается в наших 
руках. Оставшийся в редакторе «хвост» имеет тот же номер, что и 
его удравшая «хозяйка». Поэтому, если номер не сменить, то после 
нажатия Enter вторая часть строки перепишется в программу на 
место первой. Будьте внимательны! 


Без следующей команды не может обойтись любая мало-мальски 
уважающая себя версия Бейсика: 


RENUM [<начало>] [ТО <конец>] [LINE ‹нов. начало>] [STEP <war>] 


Она перенумеровывает (перебрасывает с одного места програм- 
мы в другое) блок строк, начиная с номера, заданного параметром 
«начало», по номер «конец». Новое место (номер, присваиваемый 
первой строке блока) и шаг перенумерации определяются парамет- 
рами «нов. начало> и <war>**. 


По умолчанию параметр «начало» принимает значение номера 
первой строки программы, параметр «конец» — номера последней 
строки, «нов. начало> — 10 и <war> — 10. Следовательно, использо- 
вание команды RENUM без параметров приведет к перенумерации 
всех строк программы, начиная с номера 10 и с шагом 10. 

Если при задании первых двух параметров будет указан номер 
не существующей в программе строки, действие команды прервет- 
ся сообщением No such line — нет такой строки. В команде предус- 
мотрена «защита от дурака»: если от нее потребуют присвоить 
строке уже существующий в программе номер, будет выдано сооб- 
щение No room for line (нет места для строки). 

Конечно, изменить номера строк в программе — дело нехитрое, 
куда важнее другое: сохранить при этом правильность всех ссылок 
в операторах GOTO, СО SUB и других, задающих переходы по 
номеру строки. В случае, если параметры в этих операторах зада- 
ны в явном виде (числом), команда КЕМОМ выполняет перенуме- 
рацию этих параметров корректно. Номера строк, в которых содер- 
жатся операторы перехода с параметрами, заданными выра- 
жением, после отработки команды выводятся на экран в виде 
сообщений: 


Failed at «номер строки>:<«номер оператора в строке> 


В этих операторах придется вручную откорректировать адреса 
переходов. 

Для работы команды RENUM в качестве буфера используется 
экранная область памяти компьютера. Поэтому не пугайтесь, если 


Напомним, что в Beta Basic двоеточия не высвечиваются. 

Beta Basic позволяет при перенумерации присваивать строкам номера в интервале 
1...16383. При этом все переходы на строки с номерами, превышающими 9999, 
осуществляются корректно. Вызов на редактирование таких строк возможен 
всеми доступными в Beta Basic способами. 


an 
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Значительно облегчает процесс редактирования программ ко- 
манда 


DELETE [<‹начало>] ТО [<конец› | 


Она удаляет фрагмент программы со строки с номером <начало> 
по строку «конец» включительно. В редакторе 5реснит-Бейсик для 
этого пришлось бы вводить номер каждой подлежащей удалению 
строки. По умолчанию параметр «‹начало› принимает значение 
номера первой строки программы, «конец> — последней строки. 

Как и RENUM, команда DELETE «не любит», когла в качестве 
параметров ей подставляют номера несуществующих строк. В 
таких ситуациях она выдает сообщение No such line (нет такой 
строки). 

Использование DELETE в качестве оператора в тексте программ 
позволяет создавать так называемые оверлейные программы, то 
есть программы, состоящие из небольшого блока, постоянно нахо- 
дящегося в памяти компьютера, и фрагментов, подгружаемых по 
мере необходимости с внешнего носителя. Отработавший фраг- 
мент удаляется оператором DELETE, а на его место (в эти же строки) 
с помощью MERGE подгружается следующий. Таким образом можно 
писать программы практически неограниченной длины. 

Команда DELETE 0 TO 0 позволяет при необходимости избавиться 
от нулевой строки, в которой располагаются описания расширен- 
ных функций Beta Basic. 


Beta Basic не только вводит новые команды, но и совершенству- 
ет уже существующие. Одной из таких команд является 


LIST [<начало>] ТО [<конец> ]| 


Она выводит на экран фрагмент программы, ограниченный 
строками с номерами, заданными значениями параметров <нача- 
no> H <«конец>. 


Команда LIST REF «ключ для поиска> выводит на экран список 
номеров строк, удовлетворяющих условию «ключа>. Команда 
LIST DATA распечатает все переменные программы; LIST VAL — толь- 
ко числовые, LIST VAL$ — символьные. Для массивов будут выведе- 
ны только их размерности. 

При помощи команды LIST DEF KEY можно просмотреть список 
клавиш с приписанными им макросами. Вот такая многоплановая 
команда! 


Завершим рассказ о редакторе Beta Basic описанием очень по- 
лезной функции 


МЕМ() 


С ее помощью можно определить объем памяти в байтах, доступ- 
ный для бейсик-программ. Для иллюстрации работы функции 
выполним программку: 


10 PRINT МЕМ(): DIM А(10,100): PRINT МЕМ() 


В результате получим два числа, первое из которых на 5008 
больше второго. Это вполне естественно, ведь после резервиро- 
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вания места под массив А() объем памяти, доступный бейсик-прог- 
рамме, значительно уменышится. 

В заключение отметим, что некоторые из описанных в этом 
разделе ключевых слов при использовании их в качестве операто- 
ров в тексте программ могут иметь иной смысл, о чем мы расска- 
жем позже. 


ОПЕРАТОРЫ ПРИСВАИВАНИЯ 


LET, DEFAULT 





В программах, написанных Ha Beta Basic, допускается одним 
оператором LET присваивать значения сразу нескольким перемен- 
ным. Вместо принятой в 5реснит-Бейсике строки 


LET A=1: LET B=2: LET C=3 
можно записать: ы 
LET A=1, B=2, C=3 


Список переменных, стоящих следом за одним оператором LET, 
может иметь произвольную длину. Позже (см. оператор ОМ) мы 
покажем, что новая форма записи оператора LET не только ускоря- 
ет набор программы, но и имеет серьезное смысловое преимуще- 
ство перед стандартным форматом. 


Beta Basic располагает еще одним оператором присваивания 
DEFAULT 


В отличие от LET, он задает значение только тем переменным, 
которые до этого не были определены, то есть упоминаемым в 
программе впервые. Такое свойство оператора DEFAULT может ока- 
заться полезным в случаях, когда вследствие ветвления программы 
нельзя предсказать, будет ли переменная определена в данном 
месте программы или нет: 


100 LET D=B—A*2 
110 IF D=0 THEN LET C=2 
120 DEFAULT C=3/D 


Предполагается, что AO этого фрагмента программы переменная 
С не определена. Оператор DEFAULT помог избежать еще одного 
условного оператора (120 IF D< >0 THEN LET C=3/D). Другие варианты 
использования оператора DEFAULT можно найти в разделах, посвя- 
щенных процедурам и операторам управления программой (см. 
TRACE, DEF PROC, LOCAL). 

Kak и LET, оператор DEFAULT допускает одновременную ини- 
циализацию нескольких переменных, перечисленных после него 
через запятую: 


DEFAULT Х=1, Y=2, 2=3 
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ВЫВОД СИМВОЛОВ HA ЭКРАН 


ВЫВОД СИМВОЛОВ НА ЭКРАН 


OVER, CSIZE, USING, USING$(), KEYWORDS, SCRN$(), PLOT, ALTER 


Beta Basic, помимо стандартных, использует дополнительные KO- 
Ады управления выводом на экран: 


Окно Экран Действие 

CHR$ 8 CHR$ 2 курсор влево 

CHR$ 9 CHR$ 3 курсор вправо 

CHR$ 10 CHR$ 4 курсор вниз 

CHR$ 11 CHR$ 5 курсор вверх 
_ CHR$ 12 удаление символа (Delete) 
— CHR$ 15 пробел + возврат каретки 


В этой табличке колы, указанные в первой колонке, управляют 
курсором в пределах текущего текстового окна (см. стр. 249), не 
позволяя курсору «выскочить» за границы окна. Коды из второй 
колонки ‘игнорируют все ограничения и позволяют курсору «гу- 
лять» по всему экрану. 

Приведем пример, иллюстрирующий применение этих кодов: 


10 LET L$=CHR$ 8: LET R$=CHR$ 9 

20 LET D$=CHR$ 10: LET U$=CHR$ 11 

30 LET ag$="1"+D$+L$+"2345"+U$+L$4+"6"+U$+L$+77"4+ 
L$+L$+L$+"89" 

40 PRINT AT 1,0; a$ 


Crpoka, выведенная на экран, будет иметь вид: 


897 
16 
2345 


Обратим Ваше внимание еще на одно необычное свойство Beta 
Basic: оператор OVER, кроме привычных 0 и 1, может использо- 
ваться с параметром 2. OVER 2 позволяет выводить на экран CHMBO- 
лы, не затирая и не инвертируя экранного изображения — вывод 
происходит как бы внакладку. 


Beta Basic позволяет устанавливать произвольный размер сим- 
волов, выводимых на экран. Делается это с помощью оператора 


CSIZE «ширина знакоместа> , < высота знакоместа>» 


После выполнения этого оператора символы при выводе на 
экран будут вписываться в знакоместа «нового покроя», размеры 
которых (в пикселях) задаются параметрами «ширина знакоместа> и 
«высота знакоместа>. Установка шрифта сохраняется до слелдующего 
оператора CSIZE. Олнако, этот оператор может оказывать и времен- 
ное действие, если его разместить в операторах РАМТ или PLOT 
подобно INK, PAPER, BRIGHT и FLASH. Проиллюстрировать работу 
оператора CSIZE может следующая программка: 


100 CSIZE 50,100 
150 PRINT АТ 0,0;"Q": REM Огромный символ 
200 PAUSE 100: PRINT AT 0,0 
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400 FOR i=0 TO 15: REM Каждая новая строка... 
600 CSIZE 4+i,8+i: PRINT "QWERTY": REM ...печатается символами 
большего размера 


800 NEXT i 
900 CSIZE 4,8 
‚Рассматривая полученное Ha 

экране изображение, можно за- CSIZE 8,6 
метить, что Beta Basic использу- CSIZE 8,10 
ет только два символьных набо- CSIZE 8,12 
ра: один — для знакомест CSIZE 8,14 
шириной до 5 пикселей, другой CSIZE 8,16 
— для всех остальных. Размер CSIZE 8,18 


символов может меняться лишь 
для второго набора, но только 
дискретно (кратно четырем 
пикселям). Изменение пара- 
метров CSIZE между скачками 
приводит лишь к изменению Рис. 22. Шрифты различной 
расстояний между символами и ширины и высоты. 
строками (рис. 22). 


При равенстве высоты и ширины символов допустимо указы- 
вать лишь один параметр, то есть инструкции CSIZE 8 и CSIZE 8,8 
эквивалентны. 

После изменения размеров шрифтов операторы позициониро- 
вания печати АТ и ТАВ начинают работать в новой сетке знакомест. 





Задавая оператором CSIZE сетку из «знакомест-лилипутов» или 
«знакомест-гулливеров» и при этом активно меняя цвета выво- 
димых символов, можно ненароком получить на экране верми- 
шель из «перенедокрашенных» знаков. Нормальную окраску сим- 
волов можно установить, лишь задавая параметрам CSIZE значения, 
кратные восьми. Следует также учитывать, что при установленных 
размерах.знакомест меньше 6 пикселей печатаются только правые 
половины символов UDG. 


Непревзойденной гибкостью в размещении символов на экране 
обладает оператор 


PLOT [список атрибутов; | <х>,<у> [; < строка символов > | 


PLOT с новым синтаксисом выводит строку символов, привязы- 
вая левый верхний угол первого символа к точке с координатами 
<x> и <y>. Перед параметрами, задающими координаты точки 
вывода, можно поставить любые ключевые слова, управляющие 
атрибутами. 

PLOT с опущенной «строкой символов» ничем не отличается от 
стандартного синклеровского оператора — он ставит на экране 
точку с координатами <x> и <y>. 

Интересной особенностью новой модификации оператора PLOT 
является то, что при выводе символов в точку с координатами (0, 0) 
он размещает их ниже 22-й строки экрана, то есть на служебном 
экране. 
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Параметр «строка симвопов> может иметь произвольную длину и 
включать в себя различные управляющие символы”*. 

При достижении выводимым текстом правой границы экрана 
не происходит перехода на следующую строку, вывод продолжает- 
ся с начала этой же строки. Если длина текста больше ширины 
экрана, то конец его затрет начало. Для корректного размещения 
текста необходимо пользоваться управляющими кодами. 


Приведем впечатляющий пример применения оператора PLOT: 
10 FOR N=0 ТО 255: PLOT N,N/2;"DEMO": NEXT М 


Эффект плавно «летящего» по экрану слова возникает в этой 
программе оттого, что новая позиция вывода строки отличается от 
предыдущей всего на один пиксель по горизонтали и вертикали. 
Поскольку изображение большинства символов не плотно вписы- 
вается в знакоместо, а имеет окантовку толщиной в один пиксель, 
то при нахлесте строки, выводимой PLOT-MeTOAOM со смещением на 
один пиксель, старый текст затирается новым. К сожалению, этот 
метод не может использоваться для перемещения символов, изоб- 
ражение которых примыкает к самому Kj: 'ю знакоместа (4, у и 
некоторых других) — при перемещении этим способом они будут 
оставлять на экране след. 


Спектр применения 
оператора PLOT весьма 
широк: это подписи к 


иллюстрациям, разметка 
осей графиков, вывод 
верхних и нижних индек- — on 


сов в математических и 
химических формулах и 
T A. Приведем пример 
программки, выводящей 
на экран химическую фор- 
мулу (рис. 23): 


Рис. 23. Пример использования 
оператора PLOT. 


10 LET А$=”С72Н75ОН" 

20 CSIZE 8: LET Х=0, Y=170, F=0, A=8 

30 FOR N=1 TO LEN A$ 

40 IF A$(N)=""" THEN LET Y=Y—3, F=1, A=4: CSIZE 4: NEXT М 
50 PLOT X,Y;A$(N): LET X=X+A 

60 IF F THEN LET Y=Y+3: CSIZE 8: LET F=0, A=8 

70 NEXT N: CSIZE 4,8 


В этом примере управление выводом на экран осуществляется с 
помощью знака ~. Он указывает на то, что следующий за ним 
символ необходимо печатать как нижний индекс, то есть после 
встречи знака ^ в тексте позиция вывода понижается на 3 пикселя 
и уменьшается размер символа (строка 40). 


* _ Воператоре PLOT управляющий символ CHR$ 15 перемещает позицию вывода к 


началу строки. 
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Beta Basic позволяет преобразовывать числа в символьную фор- 
му по заданному шаблону. Осуществить эту операцию можно либо 
с помощью функции 


USINGS (<шаблон>, «чисповое выражение > ) 
— либо вставив ключевое слово USING в строку следом за PRINT: 
PRINT USING <wa6non> 


«Шаблон> — это символьная строка, состоящая из знаков # и 0, 
задлающих позиции для вывода цифр, и точки (.), определяющей 
положение десятичной запятой. Например: 


LET A$=USING$ ("###.HHHHH" 12.3456) 


Если количество знаков в целой части числа меньше количества 
символов, отведенного для них шаблоном (как в примере), то 
функция USING$ вернет строку, в которой недостающие слева зна- 
ки будут заполнены: 


‚. пробелами, если в шаблоне использованы символы #; 
. нулями, если в шаблоне использованы символы 0. 


При попытке впихнуть в 
«прокрустово ложе» шаблона 
число, у которого целая часть 
больше, чем позволяет шаб- 
лон, оно будет усечено. При 
этом первым символом в нем 
будет стоять знак процента 
(%), сигнализируя о некоррек- 
тном форматировании. 

Недостающие символы в 
дробной части числа (справа 
от точки) во всех случаях за- 
мещаются нулями. Лишние знаки отсекаются, а число округляется. 
Приведем примеры различного форматирования числа 123.456*: 





Шаблон Представление 
ЕН. НЕ 123.456 
НЕНННН.НЕНИ ___123.4560 
00000.0000 00123.4560 
HHHH.# 123.5 

HH .HH %2;.5 
Н.Н. 123.4.6 

HHH Het 123.4%6 

format ###.### format 123.456 
HHH # format 123.4% %ormat 


Из примеров видно, что в маску о USING$ можно вклю- 
чать и другие символы, но так, чтобы они стояли до шаблона. 
Только в этом случае гарантируется корректная запись числа. 
Отметим, что функция USING$ не работает с экспоненциальным 
представлением чисел. 


* 
Для наглядности пробелы в примерах заменены символом подчеркивания (_). 
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Beta Basic обладает великолепным инструментом преобразова- 
ния атрибутов экрана. Оператор 


ALTER [<cnucox атрибутов 1>] ТО [<список атрибутов 2>] 


ищет на экране знакоместа, атрибуты которых соответствуют спис- 
ку, приведенному в первом параметре, и заменяет в этих знакоме- 
стах атрибуты на новые, представленные списком во втором пара- 
метре. ALTER может работать одновременно с любой комбинацией 
атрибутов: 


ALTER INK 3, BRIGHT 1 TO PAPER 6, FLASH 1 


Приведенный оператор, конечно же, не меняет INK Ha PAPER, а 
BRIGHT на FLASH. В знакоместах, для которых задано одновременно 
и INK 3, и BRIGHT 1, он устанавливает PAPER 6 и FLASH 1, не 3a- 
трагивая других атрибутов. 

Левый список атрибутов в операторе ALTER может быть и пустым: 


ALTER ТО PAPER 5, INK 2, BRIGHT 1. 


В этом случае атрибуты переустанавливаются для всего экрана. 
Но в отличие от операторов INK, PAPER, BRIGHT и FLASH, оператор 
ALTER задает временные атрибуты. То есть и после выполнения 
оператора ALTER вызод информации на экран будет продолжаться 
с ранее установленными постоянными атрибутами. 

Пользуясь оператором ALTER, можно весьма эффектно уводить 
экран в затемнение и выходить из него. 


Завершая описание операций вывода на экран символьной 
информации, рассмотрим функцию 


$С®М$ (<ctpoxKa>, < столбец> ) 


Она возвращает символ, расположенный на экране в позиции 
(<ctpoxa>,<cton6eu>), то есть выполняет то же действие, что и 
функция SCREEN$ Зресиит-Бейсика. Но в отличие от прототипа, 
SCRN$ распознает на экране не только символы текущего набора, 
но и символы, определяемые пользователем (UDG), которые выво- 
дятся на экран в режиме KEYWORDS 0. 

Kak SCREEN$, так и SCRN$ работают только в режиме CSIZE 8. 


ТЕКСТОВЫЕ ОКНА 


WINDOW, CLS 





Beta Basic располагает оператором, позволяющим организовать 
работу с текстовыми окнами: 


WINDOW <Homep okna>[;<x>,<y>, <ширина»>, <высота > | 


Этот оператор дает возможность открыть до 127 окон*. Парамет- 
рами оператора WINDOW задаются: индивидуальный «номер> окна, 


* При открытии очередного окна КАМТОР опускается на 15 байтов. В осво- 


бодившемся пространстве создается область системных переменных, в которой 
хранятся параметры окна. 
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== 





координаты левого верхнего угла окна в пикселях — <x> и <у> и 
его размеры в пикселях — «ширина> и «высота». Размеры окна 
округляются до значений, кратных четырем. 


Оператор WINDOW с параметрами «по полной выкладке» только 
задает окна, не производя никаких других действий. 
Активизировать окно, то есть сделать его текущим, можно, вы- 
полнив оператор WINDOW с одним параметром: 


WINDOW <Homep окна> 


После этого операторы PRINT и LIST будет выводить данные только 
в пределах текущего ‘окна, причем за начало символьных ко- 
ординат — позицию печати (0, 0) — будет принят его левый 
верхний угол. Это означает, что каждое окно имеет независимую от 
основного экрана и от других окон нумерацию строк и столбцов. 

Для каждого окна задаются свои постоянные атрибуты и свой 
размер символов. Все параметры окна запоминаются и при BO3- 
врате к нему (объявлении окна текущим) восстанавливаются. За- 
поминается также и текущая позиция печати. Вновь открываемые 
окна по умолчанию имеют следующее состояние: PAPER 0, INK 7, 
CSIZE 8. 

Размеры ранее заданного окна могут быть переопределены. Ho 
смены формата окна не произойдет до тех пор, пока не будет 
выполнен оператор WINDOW номер окна> (даже если окно в насто- 
ящий момент является текущим). Изменение геометрических па- 
раметров окна влечет за собой потерю текущей позиции печати: 
она возвращается в его левый верхний угол. Цветовое же решение 
окна при этом сохраняется. 

После запуска Beta Basic располагает одним «готовым к упот- 
реблению» (заданным и активизированным} окном с номером 0. 
Оно занимает весь экран, и любая попытка изменить его размеры 
ни к чему не приведет”. При возврате в нулевое окно из других 
окон оно не восстанавливает ранее заданный в нем размер симво- 
лов и постоянные атрибуты экрана и всякий раз с завидным 
упрямством предлагает стандартный набор: знакоместа 8х8 пиксе- 
лей** и «окрас» белым по черному. 

Можно, не выходя из текущего окна, «почистить» любое другое 
открытое окно оператором 


CLS «номер окна> 


Для одновременного закрытия всех окон (кроме нулевого} вы- 
полняется оператор 


WINDOW ERASE 
Проиллюстрируем работу с окнами на примере: 


10 СЫРЕ 5,9 
20 WINDOW 1;121,175,132,175 


Нулевое окно отличается еще и тем, что не претендует на участок памяти над 
КАМТОР. 

Фактически команда WINDOW 0 равносильна установке CSIZE 0, включающей 
стандартный драйвер быстрого вывода на экран, который игнорирует все оконные 
установки. Этот режим остался в наследство от предыдущих версий интерпрета- 
тора (3.0 и ани он устанавливался в них при старте Beta Basic. 


rk 
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ГРАФИЧЕСКИЕ ОПЕРАТОРЫ 


30 WINDOW 2;0,175,120,175 

40 WINDOW 1: PAPER 1: CLS: CSIZE 4,8: РАМТ АТ 0,0;"Window 1" 
50 WINDOW 2: PAPER 2: CLS: РАМТ АТ 0,0;"Window 2" 

60 WINDOW 1: LIST 10 TO 60 

80 WINDOW 2: CLS 1: LIST 

100 WINDOW 0: CLS: LIST 


В ходе выполнения этой программы на экране одно за другим 


откроются два окна. В каждое из них поочередно будет выводиться 
текст символами разных размеров. 


ГРАФИЧЕСКИЕ ОПЕРАТОРЫ 


DRAW ТО, FILL, FILLED(), ROLL, SCROLL 





DRAW TO ‹<х>, <у> [, <угловая величина > | 


Такой модернизированный синтаксис оператора DRAW позволя- 
ет при построении отрезка или дуги использовать в качестве пара- 
метров не приращения координат относительно последней выве- 
денной точки (как в Зресиаит-Бейсике), а абсолютные координаты 
конечной точки. Так, инструкции PLOT 10,25: DRAW 30,40 и 
PLOT 10,25: DRAW ТО 40,65 выполнят одинаковые действия. 

Смысл третьего параметра — угловой величины в радианах — 
остается таким же, как и AAA стандартной команды DRAW. 


В Beta Basic все графические операторы приобретают новое 
полезное свойство: в качестве их параметров можно использовать 
не только физические координаты экрана (начало отсчета — ле- 
вый нижний угол основного экрана, единица отсчета — один 
пиксель), но и математические координаты. То есть графические 
построения в Beta Basic можно делать в системе координат с про- 
извольной единицей измерения (больше или меньше пикселя), 
которая определяется специальными переменными XRG и YRG. 
Начало отсчета математической системы координат задается дру- 
гой парой переменных — XOS и YOS — и может быть расположено 
в любой точке экрана и даже за его пределами. Tak, при XOS=XRG/ 2 
и YOS=YRG/2 начало координат будет находиться в центре экрана, 
а при XRG<XOS<0 и УКС‹\УО$<0 — за его пределами. При старте 
Beta Basic переменные, задающие математическую систему ко- 
ординат, уже определены и имеют стандартные значения: 
XRG=256, YRG=176, XOS=0 и YOS=0. 

Во всех последующих примерах программ, работающих с гра- 
фикой, предполагается, что переменные XOS, YOS, XRG и YRG имеют 
стандартные значения. 


Beta Basic восполняет существенный недостаток графики 
эресиит-Бейсика — вводит операторы заливки замкнутых контуров. 
FILL [<cnucok атрибутов>;] <x>,<y> 


Onepatop FILL осуществляет заливку области экрана, 
ограниченной замкнутой линией. Задается эта область указанием 
координат любой точки внутри нее (параметры <x>,<y>). FILL 
присваивает знакоместам, «задетым» областью заливки, атрибуты, 
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указанные в «списке атрибутов». Заливка осуществляется цветом 
тона либо цветом фона в зависимости от того, какой из атрибутов 
— INK или PAPER — стоит первым в «списке атрибутов». Попробуем 
набрать и выполнить программку: 


10 CIRCLE 100,100,70 
20 FILL INK 5; 100,100 


и получим на экране голубой круг. 
Заливка цветом фона (FILL PAPER) как ластиком стирает ранее 
нанесенную заливку цветом тона. Дополним программку строкой 


30 PAUSE 0: FILL PAPER 4; 100,100 


После нажатия Ha любую клавишу нарисованный круг пере- 
красится. 

Если опустить у ключевых слов INK или PAPER стоящий после 
них параметр (код цвета), то закраска будет происходить текущими 
цветами тона или фона. 

Оператор FILL без «списка атрибутов> закрашивает указанную 
область текущим цветом тона. 


После выполнения оператора FILL можно подсчитать количество 
пикселей, подвергшихся перекраске. Это значение возвращает 


функция 
FILLED() 


Она не требует аргументов, результат ее определяется пос- 
ледним выполненным оператором FILL. Функция FILLED() может 
использоваться, например, для определения площади закрашен- 


ной фигуры. 
В Beta Basic, как и в других диалектах Бейсика для ZX Spectrum, 
присутствуют операторы скроллинга графического окна экрана*: 


ROLL <режим > [,<шаг>]|;<х>,<‹у>; «ширина», < высота > | 
SCROLL [<режим > [, <шаг>][;<х>,<у>; «ширина», < высота > || 


Оператор ROLL выполняет циклический скроллинг, при котором 
изображение, пропадающее за границей окна, выплывает с про- 
тивоположной стороны, a SCROLL — обычный скроллинг, уводя- 
щий изображение безвозвратно. 

Окно экрана, над которым производятся эти действия, задается 
четырьмя параметрами: <x> и <y> — координаты в пикселях верх- 
него левого угла окна; «ширина> — ширина окна, задаваемая в 
стандартных знакоместах (диапазон OT 1 AO 32); <высота> — высота 
окна в пикселях. 

Значения параметров <x> и <у> операторы скроллинга округля- 
ют до чисел, кратных восьми, в сторону увеличения. 

Если координаты и размеры окна не указывать, то действие 
оператора будет распространяться на весь экран. 

Расстояние в пикселях, на которое будет осуществлено смеще- 
ние изображения в окне при однократном выполнении операторов 


Окна, В которых осуществляется скроллинг экранного изображения, не следует 
путать с текстовыми окнами, в которые направляется вывод СИМВОЛЬНОЙ инфор- 
мации. 
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скроллинга, задается параметром <war>. Допустимый диапазон его 
значений: от 1 до 256 для горизонтальных перемещений и от 1 AO 
176 — AAA вертикальных. По умолчанию параметр <war> 
принимает значение 1. 

Параметр <‹режим> задает направление скроллинга и область 
его действия: изображение в окне может сдвигаться без смещения 
атрибутов, со смещением атрибутов, а также возможен сдвиг 
атрибутов при неизменной картинке. В последнем случае сдвиг 
производится на 8 пикселей независимо от того, какое значение 
задано в параметре <war>. Зависимость режимов работы операто- 
ров ROLL и SCROLL от значения параметра <pexnm> приведена в 
табл. 17. 


Таблица 17. Режимы работы операторов ROLL и SCROLL. 





3 вверх только атрибуты 

| ene 
| | брожение бе триб 
a Гверин вау риби 
i | ao 
г 


Единственное синтаксическое различие между операторами 
ROLL и SCROLL заключается в том, что последний можно использо- 
вать вообще без параметров. При этом происходит скроллинг всего 
экрана вверх на 8 пикселей (одну символьную строку) вместе с 
атрибутами. 


УПРАВЛЕНИЕ ПРОГРАММОИ 
IF... THEN...ELSE, GO ТО ON, GO SUB ON, ON 

В 5ресйит-Бейсике ветвление программы реализуется с 
помощью конструкции IF...THEN и операторов GO ТО и GO SUB. В 


Beta Basic, благодаря дополнению оператора IF...THEN ключевым 
словом ELSE, появилась возможность в большинстве случаев 
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вообще отказаться OT операторов перехода. Расширенная версия 
условного оператора записывается так: 


IF <условие> THEN [:] «блок операторов 1> [:] 
[ELSE [:] <блок операторов 2>] 


В зависимости OT того, истинно или ложно «усповие>, вы- 
полнится, соответственно, либо «блок операторов 1>, либо альтер- 
нативный «блок операторов 2>. 

Вся конструкция должна быть записана в одну строку. 

Каждый из блоков операторов внутри себя может содержать еще 
конструкции IF...THEN...ELSE, причем глубина таких вложений Heor- 
раничена. В этом случае, если на каком-либо уровне вложения 
< блок операторов 1> не предполагает наличия альтернативного < бло- 
ка операторов 2>, то на этот уровень нужно принудительно ввести 
«пустой» ELSE. Это необходимо сделать во избежание неоднознач- 
ности в определении, к какому именно из IF...THEN относится 
ланный ELSE: 


100 IF L>15 THEN: 
IF J<L THEN LET К=Ц*]: 
ELSE: 
ELSE LET K=0 


Кроме конструкции IF...THEN...ELSE, Beta Basic располагает и 
другими операторами, организующими разного рода ветвления 
программ. 


GO ТО ОМ ‹числовая переменная > ; <список адресов перехода» 


Параметр «список адресов перехода> представляет собой перечень 
номеров строк, записанных через запятую, например: 


10 GO TO ON 1;70,150,345 


Значение первого параметра задает порядковый номер адреса, 
по которому нужно передать управление. Таким образом, приве- 
денная программная строка равносильна фрагменту: 


10 IF J=1 THEN GO ТО 70 
20 IF J=2 THEN GO TO 150 
30 IF J=3 THEN GO TO 345 


«Список адресов перехода> может иметь произвольную длину. 
Если значение <числовой переменной» превысит количество элемен- 
тов в списке, оператор будет проигнорирован, управление переда- 
стся следующей за ним строке. При отрицательном значении 
«числовой переменной» знак «минус» отбрасывается. 


СО SUB ON ‹чисповая переменная»; <список адресов перехода» 


Этот оператор отличается от предыдущего тем же, чем обычный 
GO SUB отличается от СО TO. 

Обе инструкции дают возможность компактно организовывать 
ветвление программы и просто незаменимы при создании разного 
рода меню. 
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Локальные переходы в пределах OAHOH строки позволяет осуще- 
ствлять оператор варианта 


ON ‹чисповая переменная> : <onepatop>:[<onepatop>: ...] 


Из всего списка операторов, расположенных за ОМ, будет вы- 
полнен только один — тот, чей порядковый номер в строке задан 
значением параметра «чисповая переменная». После этого управ- 
ление будет передано следующей за конструкцией ОМ строке прог- 
раммы (разумеется, если не произошло принудительного перехода 
или вызова подпрограммы*). 

Основное достоинство оператора ОМ — его универсальность. К 
примеру, с его помощью можно организовать многовариантное 
переопределение переменных (используя способность оператора 
LET обслуживать список переменных произвольной длины): 


100 INPUT J 

110 ON J: LET A=484, B=50, C=88: LET A=242, B=12, C=82: 
LET A=212, B=85, C=06 

120 PRINT A, B, C 


Интересным свойством будет обладать приведенная в примере 
конструкция, если ее поместить в цикл FOR...NEXT, в котором пере- 
менная цикла и параметр оператора ОМ совпадают. Одним словом, 
спектр применения оператора ОМ ограничен лишь фантазией 
программиста. 


ОБРАБОТКА ОШИБОК, ТРАССИРОВКА, ЧАСЫ 
ON ERROR, TRACE, CLOCK, TIME$ () 


ON ERROR ‹номер строки> 


Этот оператор не производит явных действий в момент вы- 
полнения. Он лишь указывает интерпретатору номер строки, с 
которой начинается подпрограмма обработки ошибок. Если во 
время выполнения программы возникнет ситуация, приводящая к 
выдаче сообщения об ошибке, управление будет немедленно пере- 
дано подпрограмме, начинающейся с указанной строки. Операто- 
ры ON ERROR 0, RUN и CLEAR восстанавливают обычный режим 
обработки ошибок. 

Задать подпрограмму обработки ошибок можно и непосредст- 
венно сразу после оператора ON ERROR, используя следующий 


формат: 
ON ERROR: <onepatop>:<onepatop>:...<onepatop>: RETURN 





Для наглядности вместо набора операторов можно просто ука- 
зать имя процедуры обработки ошибок, а саму процедуру 
оформить отдельным программным модулем. 


Стоящий следом за ОМ список операторов может содержать также обращения к 
процедурам, вызываемым по именам (их мы рассмотрим несколько позже). В 
этом случае он будет выступать уже в ry: Ci «весовой категории» операторов 
управления программой после GO SUB 
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Проанализировать причины, приведшие к ошибке, и опреде- 
лить место в программе, где она произошла, помогут специальные 
системные переменные Beta Basic. К ним, в отличие от обычных 
системных переменных ZX Spectrum, имеется доступ по именам, 
как к обычным числовым переменным: переменная с именем 
ERROR содержит код возникшей ошибки (информация о кодах 
ошибок приводится в Приложении 3). Переменные LINO и STAT 
указывают, соответственно, номер строки и номер оператора в 
строке, где была прервана работа программы. Эта информация 
позволяет предусмотреть подходящую реакцию на ошибку в 
зависимости от вызвавшей ее причины: 


10 ON ERROR 1000: LET J=1 
30 FOR K=1 TO 10000 
40 PLOT INT (257*RND), INT (178*RND) 
50 NEXT К: STOP 
1000 REM Начало подпрограммы обработки ошибок 
1010 ВЕЕР 1,69 
1020 IF ERROR=11 AND LINO=40 THEN PRINT АТ 0,0;5: J=J+1: 
ELSE: BEEP 0.5,12 
1030 RETURN 


Фрагмент программы (строки 30...50) выводит на экран точки 
со случайными значениями координат, которые могут выходить за 
допустимые пределы (X>255, Y>175). Обычно попытка поставить 
точку за пределами экрана приводит к ошибке с выдачей сооб- 
щения Integer out of range. Но в данном примере строка 10 прел- 
писывает в случае ошибки обращаться к подпрограмме, начинаю- 
щейся со строки 1000. В ней анализируется, вызвано ли преры- 
вание ошибкой выхода за пределы экрана, иесли «да», то на экран 
выводится номер J такого «выхода», после чего управление возвра- 
щается в основную программу. Если попытаться сгенерировать 
ошибку с другим кодом, например, нажать Break, то программа, 
подав звуковой сигнал (оператор ВЕЕР в строке 1020), продолжит 
свою работу. 

На время выполнения подпрограммы обработки ошибок «анти- 
ошибочный иммунитет» отключается. Поэтому, если не предусмот- 
реть необходимой защиты, то при нажатии клавиши Break прог- 
рамма остановится, поскольку переход к подпрограмме обработки 
ошибок произойдет еще до того, как будет отпущена клавиша. Во 
избежание такой ситуации в начале подпрограммы обработки 
ошибок нужно всегда организовывать задержку, достаточную для 
того, чтобы успеть освободить клавишу Break. В нашем примере 
это сделано в строке 1010 с помощью оператора ВЕЕР, звучащего в 
неслышимом диапазоне частот (ВЕЕР не реагирует на нажатие 
Break). 

Вернуться из подпрограммы обработки ошибок можно двумя 
способами. Первый способ — по RETURN (как в приведенном при- 
мере), когда управление передается оператору, следующему за тем, 
который вызвал ошибку*, а ON ERROR опять активен — готов к 


*  Внашем примере это оператор NEXT К. 
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охоте за ошибками. Второй способ — по CONTINUE, после которого 
действие оператора ON ERROR отключается, а управление (за ред- 
кими исключениями) вновь возвращается оператору, вызвавшему 
ошибку. Повторное выполнение этого оператора приведет к при- 
вычному останову программы с выдачей сообщения об ошибке. 
Пользуясь этими двумя способами, в подпрограмме обработки 
ошибок можно предусмотреть выбор: в зависимости от места 
возникновения ошибки или ее типа работа программы продолжа- 
ется либо прекращается. 

Следует помнить, что, возвращаясь из подпрограммы по 
CONTINUE, необходимо предварительно снять со стека GO SUB адрес 
возврата из подпрограммы, так как оператор CONTINUE сам этого не 
делает. Операцию по очистке вершины стека GO SUB производит 
оператор РОР (его работа описана далее). Поэтому возврат по 
CONTINUE в приведенном выше примере должен выглядеть так: 


1030 POP: CONTINUE 


После Toro как в программе встретится оператор трассировки 
TRACE ‹номер строки> 

HAM 

TRACE: <onepatop>:<onepatop>:...<onepatop>: RETURN 


— интерпретатор, после каждого выполненного оператора, будет 
делать переход к подпрограмме, расположенной с указанного ¢<HO- 
мера строки› или размещенной непосредственно за оператором 
TRACE после двоеточия. Это будет происходить до тех пор, пока в 
программе не встретится оператор TRACE 0 или CLEAR. Пользуясь 
этим свойством, можно замедлять выполнение программы, 
отслеживать по ее ходу изменения значений переменных, следить 
за состоянием клавиатуры (не нажималась ли какая-либо 
клавиша) ит. д. Поместим в начало предыдущего примера строку 


1 TRACE 2000 
— a также добавим слелдующий фрагмент: 


2000 КЕМ Подпрограмма трассировки 

2005 WINDOW 1;140,175,115,64 

2010 WINDOW 1: CLS: CSIZE 4,8: DEFAULT K=0 
2020 LIST LINO TO LINO: PRINT AT 7,0;"K=";K 
2030 PRINT #0; АТ 0,0; "String ";LINO;":";STAT; 
2040 PAUSE 0: CLS: WINDOW 0: CSIZE 4,8 

2050 RETURN 


Теперь MUXHO выполнить программу в пошаговом режиме. В 
правом верхнем углу экрана (строки 2005, 2010) будут выводиться 
исполняемая в ‘настоящий момент строка программы и текущее 
значение переменной К (строка 2020). В нижней части экрана 
будет выводиться номер строки и номер выполняемого оператора 
з ней (строка 2030). Для осуществления*слелующего шага необ- 
ходимо нажимать клавишу Enter (строка 2040). Заменив в 2040-й 
строке оператор PAUSE 0 на IF INKEY$="1" THEN POP: STOP, можно 
сделать так, чтобы программа работала без пауз и останавливалась 
при нажатии клавиши 1. 
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Если нужно в ходе выполнения программы наблюдать за изме- 
нениями значений переменных, целесообразно в начале подпрог- 
раммы трассировки инициализировать их оператором DEFAULT. 
Иначе возможен останов программы по ошибке с сообщением 
Variable not found. 


CLOCK <uncno|ctpoxa символов> 


Этот оператор управляет часами с «боем», встроенными в 
Beta Basic: устанавливает текущее время, высвечивает его в верх- 
нем правом углу экрана, задает контрольный час, минуту и секун- 
ду, когда необходимо подать звуковой сигнал и/или передать уп- 
равление подпрограмме. 

При загрузке Beta Basic устанавливается время 00:00:00. Для 
переустановки времени нужно выполнить оператор CLOCK в следу- 
ющем формате: 

CLOCK <"HH[:]MM[:]SS"> 
— rae HH — часы, MM — минуты, SS — секунды. Разделители 
(двоеточия) между цифрами можно опускать, достаточно ввести 
6 цифр. В случае, если количество цифр окажется меньшим, вме- 
сто недостающих будут подставлены нули. Так, например, 
CLOCK "173" установит время 17:30:00. 

Для настройки будильника, который в назначенное время 
подаст звуковой сигнал и/или передаст управление подпрограмме, 
к строке символов, задающей время, в первую позицию добавляет- 
ся символ А: 


CLOCK "А09:45" 


Режим работы часов задается оператором 
CLOCK <Kkog режима> 
Всего имеется 8 режимов работы, OHH перечислены в табл. 18. 


Таблица 18. Режимы работы оператора CLOCK. 
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Так, к примеру, CLOCK 7 установит режим, в котором текущее 
время будет высвечиваться на экране, а в заданный момент про- 
звенит будильник и произойдет обращение к подпрограмме. Но- 
мер строки, с которой начинается подпрограмма, задается операто- 
ром вида: 


CLOCK <nHomep строки> 


— где «номер строки› — число от 8 до 9999 (числа от 0 до 7 
зарезервированы под номера режимов). Возможно также разме- 
щение подпрограммы непосредственно за оператором CLOCK через 
двоеточие: 


CLOCK: <onepatop>:<onepatop>:...<onepatop>: RETURN 


Следует учитывать, что часы, прежде чем 
«зазвенеть» при достижении контрольного 
времени, ждут окончания выполнения теку- 
щей строки программы, что иногда может 
длиться долго (например, ввод с клавиату- 
ры, выполнение оператора PAUSE). 

Часы Beta Basic поддерживают также 
символьную функцию 


TIMES () 


— возвращающую значение текущего вре- 
мени в виде строки символов, в которой часы, минуты и секунды 
разделены знаком двоеточия. 

Нужно иметь в виду, что часы приостанавливают отсчет вре- 
мени при генерации звукового сигнала оператором ВЕЕР и опе- 
рациях с внешними устройствами (в частности, магнитофоном). 

Описанные свойства оператора CLOCK позволяют создавать про- 
граммы, которые через заданные интервалы времени приоста- 
навливают работу, проделывают некие запрограммированные дей- 
ствия, а затем снова продолжают свое дело. Предположим, что к 
компьютеру подключен цифровой прибор, с которого необходимо 
снимать данные каждые 10 секунд. Основная программа про- 
изводит обработку данных (к примеру, выводит на экран диаграм- 
му показаний прибора, делает статистический анализ ит. д.). А 
подпрограмма, к которой происходит обращение в заданное время, 
считывает очередное показание прибора (например, из порта 104) 
и помещает его в специальный массив. Последний служит кольце- 
вым буфером для согласования времени обработки ланных в 
основной программе с частотой их поступления и3 подпрограммы. 
Подпрограмма также устанавливает новое значение контрольного 
времени для снятия очередного показания прибора. Программа 
обслуживания прибора может выглядеть так: 





10 CLOCK 6: REM Установка режима работы часов 

20 CLOCK:PortRead: RETURN: КЕМ задание имени процедуры 
30 LET Мах=3000: REM Задание размера массива-буфера 

40 DIM А(Мах): REM Инициализация массива 

50 LET Midx=0, Sldx=0: REM Инициализация указателей массива 
60 PROC PortRead: REM Вызов процедуры считывания 
100 LET Midx=Midx+1: IF Midx>Max THEN LET Мах=1 
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120 IF A(Midx)=0 THEN GO TO 120: REM Ожидание новых данных 
130 LET Value=A(Midx): LET A(Midx)=0 


a й обработка показаний прибора) 
7000 GO ТО 100: КЕМ Возврат к началу цикла 


9000 DEF PROC PortRead: КЕМ Процедура считывания показаний 
прибора 

9010 LET Sldx=Sidx+1: IF Sldx>Max THEN LET Sidx=1 

9030 LET A(SIidx)=IN 104: REM Считывание данных из порта 

9040 CLOCK "00:00:00": REM Сброс часов 

9060 CLOCK "A00:00:10": КЕМ Время следующего «звонка» 

9070 ЕМО РКОС 


В данном примере первые показания снимаются при прину- 
дительном обращении к подпрограмме считывания данных (строка 
60), а все остальные — при вызове этой подпрограммы по преры- 
ванию от таймера. Если основная программа опережает поступ- 
ление данных, она ожидает их в бесконечном цикле (строка 120). 

Другой пример использования оператора CLOCK и функции 
TIMES можно найти в разделе, описывающем циклы типа DO...LOOP 
(стр. 266). 


ПРОЦЕДУРЫ 


DEF PROC, LOCAL, REF, DATA, READ, READ LINE, ITEM(), END PROC, 
PROC, LIST PROC 


В Beta Basic по сравнению с другими диалектами Бейсика для 
ZX Spectrum инструмент процедур реализован, пожалуй, наиболее 
удачно (см. стр. 176, 222). 


Процедуры описываются блоком текста программы, состоящим 
из оператора-заголовка, собственно тела и оператора завершения 
процедуры: 

DEF PROC <uma процедуры> 

(«список формальных параметров> |РАТА | 
DEFAULT < задание значений формальных параметров по умолчанию > 
[LOCAL < список локальных переменных и массивов номер | > | 

«операторы, [READ [LINE ] <переменная>]> 
[RETURN] 


[LOCAL <cnucok локальных переменных и массивов номер М>] 
‹операторы> 
[RETURN] 


END PROC 


«Имя процедуры> может иметь произвольную длину и состоять из 
любых символов (кроме псевдографики, UDG, символов пробела и 
ключевых слов), но начинаться оно должно обязательно с буквы. 
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При этом оно может совпадать с именами переменных как в основ- 
ной программе, так и в самой процедуре. Блок описания процедуры 
может находиться в любом месте программы, но оператор заголовка 
обязательно должен быть первым оператором в строке. 


Возврат из процедуры может происходить в любой ее точке по 
оператору RETURN либо в конце — по END PROC. Оператор 
END PROC, помимо функции возврата, выполняет еще и роль мар- 
кера конца тела процедуры (этим он и отличается OT RETURN): если 
процедура встроена в середину текста основной программы, пос- 
ледняя, наткнувшись на заголовок процедуры, «перепрыгнет» че- 
рез нее. Точкой «приземления» послужит оператор, следующий за 
END PROC. Если же интерпретатор не сможет найти конца процеду- 
ры, он прервет выполнение программы сообщением № ЕМО РКОС. 


Листинг процедуры может быть выведен на экран отдельно OT 
всей программы оператором 


LIST PROC ‹имя процедуры» 
Вызов процедуры осуществляется следующим образом: 
[PROC] ‹имя процедуры» |[<список фактических параметров > | 


В этих конструкциях полностью отсутствует какая бы то ни была 
привязка к номерам строк. Эта особенность процедур в сочетании 
с возможностью принимать данные из основной программы пос- 
редством списка параметров позволяет создавать автономные про- 
граммные модули. Олнажды разработанные, они могут быть ис- 
пользованы в других программах практически без изменений. 
Достигается это объявлением внутренних переменных процедуры 
локальными, что позволяет уйти от проблемы совпадения их имен в 
процедуре и основной программе. Причем в Beta Basic (в отличие, 
например, от Laser Basic и MegaBasic) они действительно «AO кон- 
ца» локальны. 

Переменные объявляются локальными с помощью оператора 
LOCAL, который может располагаться в любом месте процедуры и 
повторяться с разным списком переменных не один раз. Список 
представляет из себя перечень имен переменных, разделенных 
запятыми. Переменная, указанная в LOCAL, теряет свое прежнее 
значение (если она его до этого имела) и становится неопределен- 
ной. Ее можно заново инициализировать и использовать в теле 
процедуры с новым содержанием. После возврата в основную 
программу ей будет возвращено прежнее значение: 


10 LET A=1 

20 PROC Test 

30 PRINT A,D: STOP 

100 DEF PROC Test 

110 LET D=5: LOCAL A: DEFAULT A=10 
120 PRINT A,D 

130 END PROC 


В процедуре Test вводится новая переменная О и объявляется 
локальной определенная в основной программе переменная А 
(строка 110). Оператор PRINT (строка 120) напечатает два числа: 10 
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и 5S, что соответствует значениям переменных А и D в процедуре. 
После возвращения из процедуры оператор PRINT (строка 30) огла- 
сит новую обстановку: переменная А без потерь пережила «про- 
гулку» в процедуру и сохранила прежнее значение; переменная D 
вынесла значение из процедуры, так как не была объявлена в ней 
локальной. 

Кроме переменных, в процедуре можно объявлять локальными 
и массивы (еще один плюс Beta Basic), после чего их необходимо 
инициализировать оператором DIM. Процедура, в которой встре- 
тятся такие строки: 


110 LOCAL A(),S$ 
120 DIM А(10,20): DIM $$(5,40) 


— создаст два локальных массива: числовой с именем А и символь- 
ный с именем $$. Если последний не объявлять как массив, проце- 
дура будет воспринимать $$ как простую символьную переменную. 
Значения, присвоенные в процедуре элементам локальных мас- 
сивов, при возврате из нее будут утрачены, а содержимое од- 
ноименных массивов в основной программе восстановлено. 

В случае многократного вложения процедур (когда одна вызы- 
вает другую, та, в свою очередь, третью и т. д.) объявленные на 
одном из уровней вложения локальные переменные и массивы 
могут использоваться всеми процедурами более низкого уровня, 
оставаясь «невидимыми» для «верхних» процедур. 

Как мы уже упоминали, список формальных параметров проце- 
дуры указывается после ее имени в операторе-заголовке. Значения 
формальным параметрам присваиваются посредством приведения в 
операторе вызова процедуры списка фактических параметров, раз- 
мещенных через запятую после имени процедуры. Фактические 
параметры могут быть заданы как з явном виде, то есть числовыми 
или символьными константами, так и переменными, элементами 
массивов, выражениями. Разумеется, все переменные и элементы 
массивов должны быть определены к моменту вызова процедуры. 

При вызове процедуры значения фактических параметров при- 
сваиваются по порядку соответствующим переменным из списка 
формальных параметров. Все переменные, входящие в список 
формальных параметров, автоматически становятся локальными. 


В общем случае допустимо, чтобы число фактических парамет- 
ров в операторе вызова процедуры было меньше числа формаль- 
ных параметров из описания процедуры. При этом «лишние» 
переменные из заголовка процедуры просто останутся в ней неоп- 
ределенными. Однако имеется возможность с помощью описанно- 
го ранее оператора DEFAULT задать значения пропущенных пара- 
метров, которые будут приниматься ими по умолчанию. Если же 
Вы хотите при вызове процедуры опустить один или несколько 
фактических параметров, стоящих в середине списка, то место в 
списке каждого из них необходимо «пометить» лишней запятой. 


В том случае, когда вообще невозможно заранее предсказать 
количество передаваемых в процедуру фактических параметров, 
список формальных параметров в ее заголовке заменяется одним 
ключевым словом ОАТА. Считывание в процедуре значений из 
такого «резинового» списка необходимо осуществлять оператором 
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READ. Аля того чтобы определить тип очередного элемента данных 
и обнаружить конец списка, используется функция ТЕМ(). Она не 
имеет параметров и возвращает 1, если в списке параметров 
следующим стоит символьное значение, 2 — если числовое зна- 
чение, И «разрешается» нулем при достижении конца списка. 
Избежать использования кавычек при пересылке строковых зна- 
чений позволяет ключевое слово LINE, помещаемое в процедуре 
после READ (например, READ LINE А$)*. 

Приведем пример пакета процедур, использующих описанные 
выше формы приема параметров: 


80 DEF PROC Рита DATA: LOCAL A,B,C 

90 DO WHILE ITEM()<>0 

100 READ A: READ B: READ C 

110 LET D=B*B—4*A*C 

120 IF D>=0 THEN PROC Real: ELSE PROC Complex 

130 LOOP: END PROC 

140 DEF PROC Real: LOCAL X1,X2 

150 LET X1=(—B+SQR D)/(2*A) 

160 LET X2=(—B-—SQR 0)/(2*А) 

170 PROC Root ,X1,X2: REM Первый параметр опущен 

180 END PROC 

190 DEF PROC Complex: LOCAL Вет 

200 LET Re=—B/(2*A), Im=SQR ABS D/(2*A) 

210 PROC Root 1,Re,lm 

220 END PROC 

230 DEF PROC Root Cmpl,A,B 

240 DEFAULT Cmpl=0: PRINT "Roots:", 

250 IF Стр! THEN PRINT "Х1="”;А;"+";В;","Х2=";Ау'—";В`"": 
ELSE PRINT "X1=":A,"X2="°B 

260 END PROC 


Этот пакет процедур вычисляет корни Х! и X2 квадратного 
уравнения А*Х{ 2+В*Х+С. Процедура Рита в цикле (строка 90) 
считывает очередные коэффициенты уравнения (строка 100), рас- 
считывает по ним дискриминант (строка 110) и, в зависимости OT 
его знака, вызывает одну из двух процедур: Real или Complex (стро- 
ка 120). Каждая их них в свою очередь обращается к процедуре 
вывода результатов Root. Но значения, передаваемые в эту проце- 
дуру. имеют разный смысл: в первом случае это действительные 
корни уравнения, во втором — действительная и мнимая части 
сопряженных комплексных корней. Поэтому в процедуру Кос} 
передается признак «комплексности» корней Re: в зависимости от 
его значения, процедура выбирает вариант вывода на экран (стро- 
ка 250). Обращение к этому пакету может выглядеть, например, 
так: РКОС Рита 3,10,1,1,2,3 Количество параметров при этом должно 
быть кратно трем. 


* Конструкция READ LINE A$ и функция ITEM() работают и с обычными DATA- 
списками. К сожалению, при этом ИТЕМ() не в состоянии определить тип первого 
элемента очередного ВАТА-списка. Следовательно, и после выполнения опера- 
тора RESTORE она тоже вернет нулевое значение. Впрочем, 3TOT недостаток в 
parare функции несложно обойти. Достаточно поместить в самое начало каждого 

АТА-списка элемент одного и того же типа. 


263 


BETA BASIC 





Beta Basic позволяет не только пересылать значения параметров 
из вызывающей программы в процедуру, но и принимать из нее 
результаты расчетов, не прибегая при этом к глобальным перемен- 
ным. Это достигается путем передачи процедуре ссылки на соответ- 
ствующий фактический параметр. Если при передаче параметров 
обычным порядком (по значению) в процедуре создается времен- 
ная область локальных переменных, в которую и копируются зна- 
чения фактических параметров, и которая уничтожается при воз- 
врате из процедуры, то при передаче значения по ссылке процеду- 
ра «получает в руки» лишь указатель на соответствующий 
фактический параметр (его адрес в основной области перемен- 
ных). Работая с таким локальным параметром-ссылкой, процедура 
фактически напрямую «общается» с соответствующей переменой 
из основной программы, лишь «называя» ее своим, локальным 
именем. Все изменения, производимые с такой локальной пере- 
менной, автоматически отражаются на содержимом ее прообраза 
из вызывающей программы. Для указания того, что передача 
параметра производится по ссылке, используется ключевое слово 
REF (reference), которое помещается перед каждым соответству- 
ющим формальным параметром в заголовке процедуры: 


10 LET A=5, B=10, Х=1, Y=2: PRINT A,B,X,Y 
20 PROC Test A,B: PRINT A,B,X,Y 

40 DEF PROC Test REF X, REF Y: LOCAL Z 
50 LET Z=X, X=X+Y, Y=Z+*Y 

60 END PROC 


В этом примере все действия, производимые в процедуре над 
локальными переменными Х и \, приводят к изменению соответст- 
вующих им переменным А и В: значения последних, выводимые 
операторами PRINT AO вызова процедуры и после Hee, будут 
различными, в то время как переменные Х и Y в основной прог- 
рамме не изменятся, несмотря на то, что одноименные им пере- 
менные были использованы в процедуре. 

Такой способ пересылки параметров позволяет передавать про- 
цедуре массивы, указывая после REF их имена с пустыми скоб- 
ками. Налицо серьезная экономия памяти: процедура не создает 
копии массива, а работает с оригиналом, лишь пользуясь его 
локальным «псевдонимом». 

При обращении к процедуре можно опускать служебное слово 
PROC, таким образом фактически расширяя арсенал операторов 
Beta Basic. К примеру, можно написать собственную процедуру с 
именем ВОХ, рисующую на экране прямоугольник, и обращение к 
ней по синтаксису ничем не будет отличаться от аналогичных 
операторов, скажем, CIRCLE. Заметим однако, что эта особенность 
интерпретатора может сыграть с программистом злую шутку: пос- 
кольку имя процедуры может состоять практически из любого 
набора символов, редактор Beta Basic способен «проглотить» ка- 
кую-нибудь синтаксически неверную строку, приняв ее за эк- 
зотическое имя процедуры. 


Beta Basic допускает рекурсию (обращение процедуры к самой 
себе) практически неограниченное количество раз. Но на 
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практике, вследствие переполнения стека адресов возврата и «pa3- 
множения» локальных областей переменных, количество рекурсий 
едва ли сможет превысить несколько сотен (при этом скорость 
работы программы значительно снижается). Этого эффекта можно 
избежать, если все параметры в рекурсивную процедуру переда- 
вать по ссылке. 


ЦИКЛ ОО...ГООР 


DO, LOOP, UNTIL, WHILE, EXIT IF 





Beta Basic в дополнение к имеющемуся в базовой версии циклу 
типа FOR...NEXT располагает еще одной подобной конструкцией — 
циклом DO...LOOP. Как и его «собрат», он также состоит из опера- 
тора начала цикла, тела и оператора завершения цикла. Кроме 
того, в теле цикла могут располагаться один или несколько опера- 
торов выхода из цикла по условию. В общем виде конструкция 
цикла DO...LOOP выглядит так: 


DO [WHILE <nor. выражение> | [UNTIL <nor. выражение > | 
[EXIT IF <nor. выражение > | 


LOOP [WHILE <nor. выражение > | | [UNTIL <nor. выражение > | 


Специфика цикла DO...LOOP заключается в TOM, что выход из 
него происходит не после определенного количества повторений 
тела цикла, как в FOR...NEXT, а по выполнении одного из условий, 
заданных логическими выражениями в начале цикла после опера- 
тора DO, в конце цикла после оператора LOOP или одним из 
операторов EXIT IF в теле цикла. Во всех случаях после завершения 
цикла управление передается оператору, стоящему после LOOP. 


Beta Basic предусматривает два типа критериев выхода из 
цикла, похожих друг на друга «с точностью до наоборот»: 

WHILE <nor. выражение> предписывает циклу повторяться, пока 
«лог. выражение> истинно. Таким образом, WHILE задает критерий 
продолжения цикла; 

UNTIL <nor. выражение> допускает повторение цикла до тех пор, 
пока «лог. выражение> не станет истинным, то есть предписывает 
прекратить цикл, как только будет соблюдено условие. Тем самым 
UNTIL задает критерий окончания цикла. 

Налицо очевидная избыточность, поскольку UNTIL <nor. выра- 
жение> и WHILE МОТ <nor. выражение> — суть одно и то же. Их 
одновременное присутствие в языке связано с желанием добиться 
большей наглядности при написании программ. 


Место расположения в цикле инструкций WHILE и UNTIL опреде- 
ляет, где будет проверяться условие выхода из него. В случае, если 
цикл делает заведомо больше одного прохода, абсолютно безраз- 
лично, где именно будет размещен критерий его продолжения или 
окончания. Если же заранее неизвестно, какое значение — «ис- 
тина» или «ложь» — будет иметь <лог. выражечие> в момент первого 
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вхождения в цикл, TO важно, 
где это будет проверяться — 
в заголовке цикла (предус- 
AoBue) или же в его конце 
(лостусловие}. Во втором 
случае, независимо от зна- 
чения ‹лог. выражения», цикл 
сделает, по крайней мере, 
один проход, что может ока- 
заться нежелательным. Поэ- 
тому рекомендуем использо- 
вать циклы DO...LOOP 
преимущественно с предус- 
ловием — это застрахует от 
возможных ошибок. Тем не 
менее, в ситуации, когда 
анализируемый в <лог. выра- 
жении> параметр вводится 
впервые в теле цикла, необ- 
XOAHMO завершение цикла 
по условию, заданному опе- 
ратором LOOP. Именно та- 
кой вариант мы и предлага- 
ем в приводимом ниже 
примере. В нем осуществля- 
ется поиск одного из корней 
квадратного уравнения ме- 
TOAOM Ньютона (метод каса- 
тельных): 





10 INPUT "Коэфф. уравнения: A=";A,"B=";B,"C=";C 

20 INPUT "Начальное приближение X="; Х 

30 LET Eps=0.001: REM Погрешность 

40 CLOCK "00:00:00": REM Установка времени 

50 DO 

60 IF A¥X+B=0 THEN POP: GO TO 140: REM Выход из цикла, если 
деление на ноль 

70 LET F=(A*X*X+B*X+C)/(A*X+B) 

80 LET Absent=(VAL (TIME$ ()(7 TO 8)) > 30) 

90 EXIT IF Absent: REM Выход, если зацикливание 

100 LET X=X—F 

110 LOOP UNTIL ABS (F) < Eps 

120 IF Absent THEN PRINT "Уравнение корней не имеет": 
ELSE PRINT "Корень уравнения X="; X 

130 GO TO 10 

140 PRINT "Попытка деления на ноль 

150 GO TO 10 


п 
! 


Запросив вначале все необходимые параметры, программа за- 
дает погрешность вычислений и обнуляет часы. После этого в 
цикле (строки 50...110) производятся вычисления, а в конце цикла 
проверяется, достигнута ли заданная точность. Как только погреш- 
ность расчета станет меньше установленной величины Eps (строка 
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110), цикл завершит свою работу. Если уравнение не имеет ре- 
шений, программа зациклится. На этот случай предусмотрен кон- 
троль времени (строка 80), и если программа работает больше 
полминуты (время заведомо достаточное, чтобы найти корень), 
происходит принудительный выход по EXIT IF (строка 90). 


При входе в цикл интерпретатор помещает в стек GO SUB адрес 
начала цикла. По достижении оператора LOOP это значение снима- 
ется со стека, и по нему вновь отыскивается соответствующий 
данному LOOP заголовок DO. При выходе из цикла по EXIT IF адрес 
возврата автоматически снимается со стека. Выход же из тела 
цикла посредством СО ТО или СО ТО ОМ необходимо предварить 
принудительной чисткой вершины стека оператором РОР (см. да- 
лее). В нашей программе есть пример и такого перехода (строка 
60): он предотвращает аварийный останов программы при попыт- 
ке деления на ноль. 

Во избежание конфликтов со стеком запрещены переходы из- 
вне в тело цикла, минуя его заголовок. Если пренебречь этим 
замечанием, выполнение программы будет прервано с выдачей 
сообщения LOOP without DO или No POP data. Подобно циклам 
РОК...МЕХТ циклы DO...LOOP допускают многократное вложение 
одного в другой. 


Ранее неоднократно упоминался оператор РОР. Рассмотрим его 
подробнее. В общем виде он записывается так: 


POP | <числовая переменная | 


Этот оператор снимает с вершины стека GO SUB значение номе- 
ра строки возврата и присваивает его «числовой переменной», если 
она указана. Оператор РОР позволяет корректно выйти из подпрог- 
раммы, процедуры PROC или цикла DO...LOOP без дезориентации 
стека. Пользуясь этим оператором, можно возвратиться из проце- 
дуры, вызванной, в свою очередь, из другой процедуры, сразу к 
месту первого вызова. 


Снятый со стека и присвоенный «числовой переменной» адрес 
возврата можно в дальнейшем использовать для перехода в опера- 
торах GOTO и СО ТО ОМ, чтобы попасть в то место, откуда была 
вызвана процедура. 


РАБОТА С ПАМЯТЬЮ 


DPOKE, DPEEK(), POKE, MEMORY$() 





Beta Basic, как и любой другой серьезный диалект Бейсика, 
может оперировать не только OAHO-, но и двухбайтовыми числами. 
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Для записи в память двухбайтового числа достаточно выполнить 
оператор 


DPOKE ‹адрес>›, <число>» 


= а для чтения двухбайтового числа применить функцию 


DPEEK (<anpec>) 


Более того, Beta Basic располагает также средствами записи в 
память целых строк символов (точнее, кодов этих символов), 
начиная с указанного адреса. Для этих целей используется все тот 
же РОКЕ, но с новым синтаксисом: 


РОКЕ <anpec>,<ctpoka символов» 


Предусмотрена и обратная функция, воспринимающая всю па- 
мять как одну большую строку кодов символов и выделяющая 
участок памяти, который можно, например, скопировать в сим- 
вольную переменную: 


МЕМОВУ$ () (<адрес началпа> ТО <адрес Konua>) 


Все эти новые средства позволяют быстро обрабатывать боль- 
шие порции памяти. Впечатляющим примером может послужить 
такая программка: 


10 LET A$=STRING$ (6144,CHR$ BIN 01010101) 
20 LET B$=STRING$ (6144,CHR$ BIN 10101010) 
30 DO: POKE 16384,A$: POKE 16384,B$: LOOP 


В ней функция STRING$ (к подробному рассмотрению ее мы 
вернемся позже) формирует строки длиной по 6144 символа, коды 
которых представляют собой в двоичном виде чередующиеся нули 
и единицы. А оператор РОКЕ записывает эти коды в экранную 
область памяти (6144 байта — размер этой области без атрибутов). 
Результатом работы такой программки будут быстро бегущие по 
экрану вертикальные полоски. 

Пользуясь оператором РОКЕ и функцией MEMORY$, можно за- 
поминать экранные картинки как символьные строки, а затем 
снова выводить их на экран: 


10 PLOT 60,60: DRAW 100,100,4000 

20 LET А$=МЕМОКУ$()(16384 TO 23295): REM Запоминаем экран 
30 CLS: РАМТ "Нажмите любую клавишу” 

40 PAUSE 0: POKE 16384, A$ 


Возможно также быстрое копирование участков памяти. До- 
полним предыдущую программу строками: 


70 LET A$=MEMORY$ () (18432 TO 20479) 
80 POKE 16384, A$: POKE 20480, A$ 


Средняя треть экрана будет скопирована в верхнюю и нижнюю. 
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ОПЕРАЦИИ С СИМВОЛЬНЫМИ СТРОКАМИ 


INSTRING(), STRING$(), SHIFT$(), PRINT #14 





INSTRING(<HaYanbHaa позиция», < строка символов >, < строка-образец>) 


Эта функция осуществляет поиск <строки-образца> в «строке сим- 
вопов>, начиная с позиции, заданной параметром «начальная по- 
зиция>. Она возвращает номер позиции в «строке симвопов>, в 
которой первый раз встретился образец. Если поиск оказался 
безуспешным, функция возвратит ноль. Нулевое значение возвра- 
щается функцией также: 


‚ если значение параметра «<начальная позиция» выходит за преде- 
лы базовой строки, 

‚ если <строка-образец> по длине больше исходной ‹строки симво- 
лов>, а также 

‚ если одна из строк имеет нулевую длину. 


‹Строка символов» может иметь произвольную длину, но <строка- 
образец» не должна состоять более чем из 256 символов. 

Для поиска можно использовать шаблон, вставляя в «строку- 
образец> знак #. В этом случае при поиске содержимое позиции, в 
которой стоит #, будет игнорироваться. Например, инструкция 


PRINT INSTRING (1, A$, “baob#b”) 


будет искать в строке A$ позиции строк baobab, baobbb, baobcb и т. A. 


INSTRING в сочетании с функцией MEMORY$ (см. предыдущий 
раздел} позволяет вести поиск в обширных участках памяти компь- 
ютера. 


STRINGS (<чиспо>›, < строка символов> ) 


Функция возвращает символьное значение, состоящее из 
‹чиспо> раз повторенных «строк символов». Так, например, 
STRING$(5,"la-") сформирует строку “la-la-la-la-la-". 

Функция STRING$ формирует строку быстрее, чем цикл 
FOR...NEXT, и поэтому ее целесообразно использовать совместно с 
оператором POKE для заполнения памяти требуемыми данными. К 
примеру, для быстрой фчистки трети экрана достаточно выполнить 
строку: 

РОКЕ 16384, STRING$(2048,CHR$ 0) 

Пригодится функция STRING$ и для формирования шаблона в 

операторе USING, когда число печатаемых разрядов определяется 


значениями переменных, скажем, переменных Intr и Fr в следую- 
щем примере: 


PRINT USING STRING$(Intr,"#")+"."+STRING$(Fr,"#"); A 
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SHIFT$ (<Homep режима», <cTpoKa символов>) 


Эта функция в зависимости от выбранного «номера режима» 
(1...7) преобразует «строку символов»: избирательно заменяет сим- 
волы другими символами, последовательностями символов или 
удаляет символы из строки. 


Режим 1. В этом режиме функция SHIFT$ заменяет все пропис- 
ные буквы в «строке символов» на строчные. 


Режим 2. Обратная процедура: заменяет строчные буквы про- 
MHMCHbIMH. 


Режим 3. Все прописные буквы заменяются на строчные, a 
строчные — Ha прописные. 


Режим 4. Функция возвращает строку, в которой все управля- 
ющие символы (с кодами от 0 до 31), за исключением символа 
возврата каретки (KOA 13), заменены символом точки (СНК$ 46)*. 
Используя этот режим, удобно просматривать память компьютера, 
например, область бейсик-программы: 


PRINT SHIFT$(4, MEMORY$()(<agpec начала> ТО «адрес конца>)) 


Режим 5. Функция SHIFT$ заменяет каждый символ с кодом М 
из второй половины таблицы символов (ключевые слова интер- 
претатора) на символ с кодом М-128**. Кроме этого, подобно 
режиму 4, все управляющие символы (как ранее существующие, 
за исключением символа возврата каретки, так и полученные в 
результате преобразования) заменяются символом точки. Заменя- 
ется точкой и символ CHR$ 141, который после преобразования 
должен был бы стать символом возврата каретки (141-—128=13). 


Режим 6. Целиком совпадает с режимом 5, за исключением 
одного нюанса: символ возврата каретки уже не находится на 
особом положении. Он, подобно другим управляющим символам, 
обращается в точку. 


Режим 7. Прежде всего в этом режиме функция $НЕТ$ удаляет 
из строки все символы управления выводом на экран (переме- 
щение курсора, изменение позиции печати, управление цвето- 
выми атрибутами) (см. табл. 19). Причем удаляет не только управ- 
ляющие символы, но.и их параметры*** (если они предусмотре- 
ны). Так, к примеру, изымая символ позиционирования вывода на 
экран — CHR$ 22 (АТ-управляющий), функция SHIFT$ «подчистит» и 
два обязательно следующих за ним параметра. А вот управляющий 
символ табуляции CHR$ 23 (ТАВ-управляющий)} будет не только 
удален вместе со своими параметрами, но еще и заменен необ- 
ходимым количеством пробелов. 


* CM. таблицу символов на стр. 100. 


На уровне двоичного представления чисел это означает, что в любом коде с номе- 
ром больше 127 сбрасывается старший бит. 

Функция SHIFT$ в режиме 7 очень «не любит» управляющие символы с парамет- 
рами, выходящими за пределы допустимых значений — их наличие в строке мо- 
жет привести к сбросу компьютера. 


ak 


kkk 
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Таблица 19. Замена символов функцией $НЕТ$ в режиме 7. 










удаление символа (Delete) CHR$ 32 


15 пробеп + возврат каретки CHR$ 32+CHR$ 13 
+ перевод строки 
16...21 +1 управление атрибутами — «пустая строка» 
параметр при выводе на экран 
22 +2 АТ-управляющий «пустая строка» 
параметра 
23+2 ТАВ-управляющий соответствующее 

параметра число пробелов 


Помимо изложенного, функция SHIFT$ в режиме 7 вводит новый 
управляющий код, который ранее в ZX Spectrum не использовал- 
ся: в исходной строке символ с кодом 15 она заменяет сочетанием 
символов пробела (СНК$ 32) и возврата каретки (CHR$ 13). 

Но самое ценное в работе функции SHIFT$ в режиме 7 — это 
замена символов с кодами 128...255 на последовательности букв, 
составляющих соответствующие ключевые слова интерпретатора. 
Такая интерпретация выполняется только в режиме клавиатуры 
KEYWORDS 1. Например, функция SHIFT$(7,CHR$ 140) вернет строку 
из пяти символов с кодами 76, 79, 67, 65 и 76, которые составят 
слово LOCAL. Несколько иначе трактуется символ с кодом 168, 
соответствующий ключевому слову FN. Если двум символам — 
букве и открывающей скобке или букве и знаку $, стоящим за 
CHR$ 168, соответствует одна из встроенных функций Beta Basic, то 
все эти символы будут заменены на полное буквенное название 
соответствующей функции. В противном случае код 168 будет 
просто заменен сочетанием символов Ви М. 

В режиме KEYWORDS 0 никаких изменений в старшей половине 
кодовой Таблицы не происходит, за исключением замены по опи- 
санному сценарию символа с кодом 168. 

Свойства функции SHIFT$ в режиме 7, к примеру, дают возмож- 
ность написать на языке Beta Basic драйвер принтера, позволяю- 
щего распечатывать тексты программ, или драйвера экрана для 
независимого редактора программ. 


Завершим рассказ о способах обработки символьных значений 
описанием интереснейшего объекта системы Beta Basic — сим- 
вольной переменной 2$. Использовать эту переменную можно, как 
и любые другие (А$...\$); при обычных операциях с символьными 
значениями 27$ ничем не отличается от них, но... 

Но кроме этого в символьную переменную 2$ можно заносить 
данные с помощью оператора PRINT (или (РАМТ) в виде, предназна- 
ченном для вывода на экран. Данные, направленные в 7$, можно 
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аккумулировать, то есть использовать переменную в качестве CBO- 
его рода буфера*. 

«Печать» данных в переменную 2$ производится оператором 
PRINT #14. Выполним программу: 


10 INPUT LINE A$: LET Z$="" 
20 PRINT #14; AT 5,10;INK 4;A$;PAPER 2;12345 


В результате работы программы Ha экране He появятся ни 
значение, присвоенное переменной A$, ни числа, стоящие в строке 
за РАМТ — все они будут спрятаны в символьную переменную 278$. 
В этом легко убедиться, распечатав ее содержимое с помощью 
оператора PRINT 2$. Данные предстанут на экране, причем будут 
выведены именно в том цвете и окажутся именно в тех позициях, 
которые были предусмотрены в операторе PRINT #14. Все это го- 
ворит о том, что в переменную 2$ передаются не только данные, но 
и все коды управления выводом на экран. 


Как уже упоминалось, переменная 2$ накапливает выводимую в 
нее информацию. При этом, если в конце очередного PRINT #14 
после выводимых данных не стоит запятая или точка с запятой, 
они будут дополнены символом CHR$ 13 (возврат каретки). Вся 
информация может быть мгновенно удалена оператором LET 2$="". 
Попытка осуществить вывод в 7$ до того, как она была впервые 
определена, приведет к выдаче сообщения Variable not found. 

Описанные свойства символьной переменной 2$ позволяют на- 
ходить изящные решения многих вопросов программирования. 
Tak, с ее помощью можно задерживать предназначенную для выво- 
да информацию, при желании анализировать или видоизменять 
ее, пользуясь всеми доступными средствами для работы с символь- 
ными переменными, а затем по выбору направлять на то или иное 
внешнее устройство. 

В заключение добавим, что такими «волшебными» свойствами 
можно наделить любую символьную переменную. Для этого доста- 
точно выполнить оператор 


РОКЕ 47027,"<имя переменной>" 


— где «имя переменной» — заглавная латинская буква (без знака $. 
Так, инструкция РОКЕ 47027,"A" прелпишет каналу "7." работать с 
переменной А$. Делая аналогичные переключения на разные 
переменные, можно в любую из них осуществлять запись операто- 
ром PRINT #14 со всеми вытекающими отсюда последствиями. 
Обращаем внимание на то, что переменные, стоящие в списке 
вывода оператора PRINT #14, должны быть определены или иметь 
последние изменения до инициализации переменной 2$. Если же 
это условие соблюсти невозможно, перед оператором РЕМТ #14 
необходимо делать переинициализацию 7$ (без потери ВАНО 
мации в ней) инструкцией LET Z$=Z$. р 


Для направления печати в переменную 2$ при старте Beta Basic в дополнение к 
уже существующим каналам ("K", "$", "К" и "Р") инициализируется еще один — 
“Z". К нему по умолчанию подключается поток #14 (см. [1]). 
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_ SORT, INARRAY(), LENGTH(), COPY, JOIN, DELETE, CHAR$(), NUMBER() . 





SORT [INVERSE] <символьный массив|числовой массив|строка символов> 


Этот оператор упорядочивает элементы числового или символь- 
ного массива. Числовой массив должен быть одномерным, 
символьный — либо одномерным, либо двухмерным (одномерный 
массив символьных строк). В одномерном символьном массиве 
оператор SORT расставляет символы (в массиве строк — строки) в 
алфавитном порядке, точнее, в порядке возрастания кодов. Чис- 
ловой массив сортируется по значениям его элементов от большего 
к меньшему. Конструкция SORT INVERSE сортирует элементы в 
обратном порядке. 

SORT позволяет почти мгновенно отыскать максимальное и ми- 
нимальное значения в числовом массиве: 


10 DIM А(100) | 
20 FOR k=1 TO 100: LET A(k)=10*RND: NEXT К 
30 SORT А(): LET Мах=А(1): LET Min=A(100) 
40 PRINT "Мт=";Мт, "Мах="; Мах 


Еще интереснее использовать 
этот оператор с символьными 
массивами. Здесь он открывает 
большие перспективы для создания 
справочных систем и баз данных. 

В символьной строке оператор 
SORT сортирует символы; в массиве 
символьных строк  переставляет 
строки, а порядок символов в преде- 
лах каждой строки не изменяет. То 
есть последовательность строк в 
массиве становится подобной раз- 
мещению слов в словаре. 

Сферу влияния оператора SORT можно ограничить заданным 
диапазоном строк с помощью сечения массива, например: 


SORT A$(1 ТО 40) 





Сортировать массив можно не только по первым символам 
строк, но и по произвольному сечению, заданному во втором 
измерении. К примеру, строка 


SORT A$(1 TO 40)(2 TO) 


отсортирует первые 40 строк массива, игнорируя их первый 
символ. 


1МАВЮАУ (< массив cTpoK>, < строка-образец> ) 


По многим свойствам эта функция напоминает функцию 
INSTRING. Она возвращает номер элемента массива символьных 
строк, в котором обнаружено первое включение «<строки-образца>. 
На элемент массива (строку), начиная с которой необходимо вести 
поиск, указывает первый аргумент функции, например: 


INARRAY(A$(20),"A") 
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Эта функция начнет поиск символа A с 20-го элемента массива 
(то есть с 20-й строки). 


COPY <maccus 1> TO ‹массив 2> 
JOIN <maccus 1> TO ‹массив 2> 


Оба оператора добавляют к «массиву 2> элементы <массива 1>. 
Оператор COPY копирует указанные элементы, сохраняя их в ис- 
XOAHOM массиве, a JOIN переносит, не сохраняя оригинал («сшива- 
ет» два массива). Поддерживается работа с одно- и двухмерными 
числовыми и символьными массивами. 

Допустимо копировать массивы сами в себя. 


Рассмотрим действие этих операторов на примере работы с 
символьными строками и массивами строк. Операции с число- 
выми массивами выполняются аналогично. В местах, где наблюда- 
ются некоторые различия, мы сделаем соответствующие оговорки. 


10 LET A$="QWERTYUIOP": LET B$="qwertyuiop” 
20 COPY A$ TO B$ 
30 PRINT "A$=";A$, "В$=";В$ 


Эта небольшая программка выведет на экран: 
A$=QWERTYUIOP B$=qwertyuiopQ МЕВТУЦЮР 


После замены в строке 20 оператора COPY на JOIN выполнение 
программы прервется на 30-й строке сообщением Variable not found 
— оператор JOIN ликвидирует переменную A$ после переноса ee 
содержимого в переменную 8$. 


Заменим 20-ю строку на 
20 СОРУ А$(4 ТО 6) ТО В$(3) 


Результат станет таким: 


AS=QWERTYUIOP 
B$=qwRTYertyuiop 


Применение оператора JOIN с 
такими же параметрами приведет к 
следующему: 


A$=QWEUIOP B$=qwRTYertyuiop 


Таким образом, сечение массива-источника (в нашем случае 
А$(4 ТО 6)) задает фрагмент, подлежащий переносу или 
копированию. Номер элемента, указанный в массиве-приемнике, 
(B$(3)) определяет место в нем, куда булет вставлен соответству- 
ющий фрагмент. 


При работе с числовыми массивами также допустимо задавать 
их сечения, используя TOT же синтаксис, что и с CHMBOAbHbIMH 
массивами. 


Операции копирования и переноса двухмерных массивов более 
сложны. Для их анализа Вы можете написать специальную прог- 
рамму. Мы же ограничимся приведением диаграмм, иллюстри- 
рующих работу операторов COPY и JOIN с массивами разных разме- 
ров и размерностей (рис. 24). На диаграммах представлены 
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массивы А() и B() (они могут быть как числовыми, так и символь- 
ными), а также результаты выполнения оператора COPY А() ТО B() 
или JOIN A() ТО B(). 


BBB BBBBB 
1) | | BBB 2) | BBBBB 
ДАДА ААА ‘Ad АААоо 
АААА ААА ААА AAAoo 

B B BBBBB 
3) |B B 4) | ВВВВВ BBBBB 
B в BBBBB 
A A + | Aoooo 
AAAA A Aoooo 


АиВ — эпементы соответствующих массивов, 
о — нулевое значение в числовом массиве или пробел — В CHMBONBHOM. 


Рис. 24. Работа COPY и JOIN с двухмерными массивами. 


Из этих диаграмм становится ясно, что в случае, когда второе 
(либо единственное) измерение массива-приемника меньше вто- 
рого (либо единственного) измерения массива-источника, массив- 
приемник играет роль «прокрустова ложа» — пристраиваемый 
фрагмент или весь массив будет усечен по второй размерности до 
границ своего нового пристанища (случаи 1 и 3). 

Если же в новом жилище исходному массиву или его фрагменту 
слишком просторно (второе измерение массива-приемника боль- 
ше, чем массива-источника), в этих случаях новые строки символь- 
ного массива дополнятся пробелами. В числовых же массивах 
вместо недостающих элементов будут стоять нули (случаи 2 и 4). 

Для всех вариантов применения оператора JOIN, если не было 
указано сечение массива-источника, последний будет удален из 
области переменных. 

Синтаксис описываемых операторов допускает использование 
сечений только по первому измерению. 

Как и случае одномерных массивов и символьных строк, двух- 
мерные массивы можно копировать или переносить не только в 
конец массива-приемника, но и в любое другое его место. 


DELETE < массив|символьная переменная> 


Оператор удаляет из области переменных символьный или чис- 
ловой массив либо, если задано сечение массива, его фрагмент. 
Он также работает с символьными и числовыми переменными, 
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удаляя их из области переменных. Действие оператора DELETE 
лемонстрирует слелующая программа: 


10 DIM A(30,100) 
20 DELETE A(11 TO 20) 
30 PRINT "A(";LENGTH(1,A()");","s;LENGTH(2,"A()");"")" 


Она напечатает: A(20,100), то есть оператор DELETE при указании 
сечения сокращает массив по первому измерению. В случае рабо- 
ты с символьными строками он позволяет вырезать из них задан- 
ные фрагменты. При этом оператор DELETE C$(M ТО М) равносилен 
строке LET C$=C$( TO M)+C$(N TO ). 


Улаляя из программы переменные и массивы, отслужившие свой 
век, DELETE позволяет экономно расходовать память компьютера. 


ГЕМСТН (< измерение массива>,” имя массива>") 


Функция LENGTH определяет количество элементов OAHO- или 
двухмерного массива (как символьного, так и числового} по каждо- 
му его измерению. Номер измерения задается первым аргументом 
функции, который может принимать значения 1 или 2. Имя 
массива заключается в кавычки*: 


10 DIM А(10,45) 
20 PRINT LENGTH(1,”A()"), LENGTH(2,"A()") 


В результате работы этого примера будут выведены два числа — 
10 и 45. 

Функция LENGTH позволяет работать с массивом, размеры KOTO- 
рого в данной точке программы неизвестны, без опасения выйти 
за его пределы. Это может понадобиться в процедурах, где универ- 
сальный алгоритм рассчитан на работу с массивами, в общем 
случае имеющими разную длину. Например, программа сорти- 
ровки элементов одномерного массива (см. стр. 273) может быть 
переписана так: 


10 DIM G(100) 

20 FOR k=1 TO 100 

30 LET G(k)=10*RND 

40 NEXT k 

50 PROC Limits G(),Emax,Emin 

60 PRINT "Min=";Emin, "Max=";Emax 
1000 DEF PROC Limits REF F(), REF Max, REF Min 
1010 LOCAL Lng,Q() 
1020 LET Lng=LENGTH(1,"F()") 
1030 DIM Q(1) 
1040 COPY F() TO Q(): DELETE Q(T) 
1070 SORT INVERSE Q() 
1080 LET Min=Q(1): LET Max=Q(Lng) 
1090 END PROC 


Надо отметить, что в LENGTH допустимо подставлять имя массива как в форме 
"С()”, так и в виде имени любого из его элементов: "С(К)” или "С( < число >)". Ha 
работе функции эти различия в записи имени не отражаются. 
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В начале этой программы при помощи генератора случайных 
чисел формируется массив G() (причем размер массива может 
быть произвольным), и ссылка на него передается в процедуру 
Limits (строка 50). В ней вычисляется размер массива [Е () (процеду- 
ра «знает» массив G() только под этим именем; строка 1020) и 
затем его содержимое копируется в массив Q() (строка 1040), 
объявленный ранее как локальный (строка 1010). Далее идет 
сортировка (строка 1070) и нахождение предельных значений 
(строка 1080) по старой схеме. По выходу из процедуры не опреде- 
ленные ранее переменные Етах и Етт будут иметь значения, 
которые получили в процедуре их alter ego — переменные Мах и 
Min. 

В завершение этого раздела мы расскажем о двух функциях, 
также позволяющих значительно экономить память при работе с 
целочисленными массивами: | 


СНАЕ$ (< чиспо> ) 
NUMBER (< двухсимвольная переменная> ) 


Как известно, под хранение любого числа в памяти ZX Spectrum 
отводится 5 байтов, в то время как для представления целого числа 
из интервала 0...65535 достаточно только двух. Поэтему цело- 
численные массивы преимущественно «хранят воздух» — на 35 
они заполнены нулями. Бороться с такой непозволительной рос- 
кошью помогает функция CHAR$: она представляет числа из ин- 
тервала 0...65535 двухбайтовыми строками, то есть равносильна 
следующему набору инструкций: 


LET АМТ (N/256): LET B=N—A*256 
LET D$=CHR$ A+CHR$ B 


— где М — целое число из указанного диапазона. 

Функция NUMBER() производит обратную операцию — пере- 
водит двухсимвольные строки в форму целых чисел. Аналогом 
функции является строка: 


LET N=256*CODE D$(1)+CODE D$(2) 


Ниже мы приводим пример, демонстрирующий экономию па- 
мяти, достигаемую с помощью этих функций: 


10 DIM 0$(500,2) 

20 FOR K=1 TO 500 

30 LET D$(K)=CHAR$(K): NEXT К 
40 PRINT MEM() 

50 DIM N(500) 

60 FOR K=1 TO 500 

70 LET N(K)=NUMBER(D$(K)) 

80 NEXT K: DELETE D$() 

90 PRINT MEM() 


В первом цикле программы с помощью функции CHAR$ из 
целых чисел от 1 до 500 формируется символьный массив (строки 
10...30), после чего на экран выводится количество памяти в бай- 
тах, доступной для бейсик-программ (строка 40). Во втором цикле 
(строки 60...80) функция NUMBER переводит символьный массив в 
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числовой. После удаления символьного массива снова печатается 
объем свободной памяти. Анализируя результат, можно сделать 
вывод, что для целочисленного массива ‘размером лишь в 500 
элементов преобразование его в двухбайтовое представление дает 
экономию в полтора килобайта. 


РАБОТА С КЛАВИАТУРОЙ 


EDT , СЕТ 





Помимо описанных выше средств программного преобразо- 
вания символьных строк, Beta Basic позволяет вручную редактиро- 
вать строковые, а Также и числовые данные. Делается это с 
помощью оператора EDIT, уже знакомого по описанию редактора 
Beta Basic. В новом амплуа он имеет следующий синтаксис: 


EDIT [LINE] <символьная переменная > | < числовая переменная> 


По действию оператор EDIT близок к INPUT — он присваивает 
переменной, указанной следом за ним, соответственно символьное 
или числовое значение, введенное с клавиатуры. Но в отличие от 
INPUT, он не отнимает у переменной ее прежнего содержимого, а 
выводит его в строку служебного экрана для редактирования. Вот 
небольшой пример: 


10 LET A$="QWERTY”, B$="qwerty” 
20 INPUT "A$="; LINE A$, 

30 EDIT "B$="; LINE B$ 

40 PRINT "A$=";A$,"B$=";B$ 


Если при выполнении. этой программки Ha запросы обоих опе- 
раторов просто нажать клавишу Enter, To PRINT (строка 40) «пока- 
жет», что переменная A$ «опустошилась», а В$ сохранила ранее 
присвоенное ей значение. Поместив перед именем переменной 
точку с запятой, можно организовать редактирование и числовых 
переменных. Если стоящая в EDIT переменная не была к этому 
моменту определена, то оператор EDIT будет работать как обычный 
INPUT. В списке из нескольких переменных для всех из них, кроме 
первой, EDIT тоже работает как INPUT. 

Недопустимо подсовывать оператору EDIT «пустую строку» — это 
может привести к сбросу или зависанию компьютера. Поэтому перед 
применением EDIT в программе (если нет уверенности} рекомендует- 
ся делать проверку переменной на «пустоту»: 


IF A$="" THEN INPUT A$: ELSE EDIT A$ 


СЕТ <символьная переменная|числовая переменная> 


Оператор СЕТ производит опрос клавиатуры и присваивает 
переменной символьное или числовое (в зависимости от того, 
какая переменная используется в качестве параметра) значение, 
соответствующее нажатой клавише, одной или в комбинации с 
функциональными клавишами CS и SS. На нажатие самих функ- 
циональных клавиш СЕТ не реагирует. В отличие от функции 
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стандартного Бейсика INKEY$, оператор СЕТ задерживает выпол- 
нение программы и ждет, пока не будет нажата клавиша. Он в 
некоторой степени аналогичен комбинации 


PAUSE 0: LET A$=INKEY$ 


Кроме Toro, оператор СЕТ позволяет менять режимы курсора во 
время ожидания нажатия клавиши: он не реагирует на нажатие 
комбинаций клавиш, задающих тот или иной тип курсора. Исполь- 
зуя это свойство, можно считывать символы, возвращаемые кла- 
виатурой не только в режимах курсора [L] или [$], как при работе 
с функцией INKEY$, но и в режимах [Е] и [G]. 


Оператор СЕТ с числовой переменной в качестве параметра при 
нажатии цифровых клавиш в режимах курсора [1] и [©] 
присваивает ей, соответственно, значения от 0 до 9. При нажатии 
клавиши А переменной присваивается значение 10, В — 11 ит. д. 
по алфавиту. 


Рассмотрим небольшой пример: 


10 PRINT OVER 1;"_";CHR$ 8;: GET A$ 
30 PRINT OVER 1;"_";CHR$ 8;: 40 PRINT A$; 
50 GO TO 10 


Для такой крохотной программки результат неожиданный и 
впечатляющий: теперь можно свободно перемещать курсор по 
экрану и вводить символы и ключевые слова в любом его месте. 
Чтобы избежать сообщения Invalid colour при попытке удалить 
символ клавишами CS/0, находясь в режиме курсора [Е]*, целесо- 
образно заменить 40-ю строку программы на 


40 IF CODE A$<16 OR CODE А$ >31 THEN PRINT A$ 
Согласитесь, получившиеся пять строк — неплохая заготовка 
для создания полноэкранного редактора программ Beta Basic. Но 
вот проблема: как включить введенную строку в текст программы? 


Beta Basic имеет решение и на этот случай: в нем предусмотрен 
оператор КЕУМ, который мы рассмотрим чуть позже. 


РАБОТА СО СПРАЙТАМИ 


GET, PLOT, CHR$ 0, CHR$ 1 





Способности оператора СЕТ He ограничены тем, что мы описали 
в предыдущем разделе. Этот оператор предоставляет также воз- 
можность работать со спрайтами, позволяя получать неплохие 
результаты в области мультипликации. 


* Режим [Е] в данном случае не отключается автоматически после ввода одного 


символа, как это происходит в редакторе; возврат к курсорам [L] или [С] необ- 
ходимо делать принудительно повторным нажатием CS/SS. 
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Формат оператора таков: 


СЕТ <строковая переменная», «горизонтальная координата», 
«вертикальная координата> [, <ширина», < длина>] [;<тип>] 


Действие оператора элементарно: он помещает в <строковую 
переменную> («фотографирует») прямоугольную область экрана. 
«Ширина> и <длина> этой области измеряется в знакоместах, <KO- 
ординаты> верхнего левого угла — в пикселях. Сделать «отпечаток» 
с этой области можно, выводя <«строковую переменную» операторами 
PRINT или PLOT в любое место экрана. При этом с помощью CSIZE 
возможно изменение масштаба изображения (CSIZE в нашем 
«фотопроцессе» играет роль увеличителя). Аналогия с фото- 
графиейи на этом не исчерпывается: значения параметра <тип> 
определяют, будет ли наша «фотография» черно-белой или цвет- 
ной. Нулевое значение параметра указывает на то, что запомнить 
следует только изображение, а единица — изображение с атрибу- 
тами. По умолчанию параметры принимают следующие значения: 
<ширина>=‹<длина>=1, <tun>=0. Отметим, что установка CSIZE 0 не 
позволит Вам воспроизводить картинку с помощью PRINT. Перей- 
дем к примеру. 


5 СЗЫЕ € 

10 PRINT "BOMM!""''"BAMM!": REM Вывели две надписи 

20 CIRCLE 16, 159, 5: КЕМ В промежутке нарисовали окружность 
30 СЕТ A$, 0, 175, 5, 4; 0: REM «Сняли» надписи вместе с окруж- 


ностью 
40 PRINT АТ 0,0; OVER 1; A$: REM Стираем нашу картинку 
50 FOR |=1 ТО 150: REM Вновь и вновь, двигаясь по диагонали... 


60 PLOT |, 175—I, A$: REM ...воспроизводим картинку... 

70 OVER 1: PLOT |, 175—I, A$:OVER 0:КЕМ ...и тут же снова ее 
стираем 

80 МЕХТ | 


Ну, чем не мультипликация! 

Мы убедились, что оператору СЕТ «по зубам» и символы, и 
графика. Остается выяснить, что же представляет собой получен- 
ная нами переменная A$. Это может понадобиться для KOHCT- 
руирования спрайтов «в уме», без помошки оператора СЕТ, что, как 
мы покажем, может дать определенные удобства. 

Первым элементом такой переменной всегда является управля- 
ющий символ CHR$ 0 или CHR$ 1 и это сразу выделяет спрайты из 
числа обычных символьных переменных. Код 0 говорит о том, что 
за ним следуют 8 байт, которые должны интерпретироваться как 
закодированное изображение символа 8х8 пикселей (аналогично 
TOMY, как кодируются символы UDG). Код 1 предупреждает интер- 
претатор о том, что эти 8 байт предваряются еще одним, содер- 
жащим атрибуты знакоместа. Таким образом, эти коды совпадают 
со значением параметра <tun> оператора СЕТ. Каждое последую- 
щее знакоместо (если их больше одного) представлено таким же 
блоком из управляющего кода 0 или 1 и следующих за ним 8 или 
9 байт. При необходимости между блоками располагаются коды 
управления курсором (символы CHR$ 8...11, стр. 245), которые 
залают взаимное расположение знакомест. Попробуйте про- 
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анализировать содержимое переменной A$, полученной в приве- 
денном примере, и «анатомия» спрайтов будет для Вас понятнее. 

Олнократное применение GET не позволит Вам получить спрайт 
с формой, отличающейся от прямоугольной. Однако «склеив» (с 
помощью плюса или JOIN) несколько строковых переменных, «раз- 
бавляя» их кодами управления курсором, можно получить «супер- 
спрайт» самой экзотической формы — даже состоящий из несвя- 
занных фрагментов. Фантастические возможности появляются 
при объединении в одну переменную обычных текстовых строк и 
строк-спрайтов, а также спрайтов типов 0 и 1! Предоставим Вам 
возможность поэкспериментировать самостоятельно. 


ГЕНЕРАЦИЯ ДАННЫХ И ТЕКСТА ПРОГРАММ 


KEYIN 





KEYIN <cTpoka’ cumsBonos > 


Оператор KEYIN помещает <cumBonbHyto строку> в текст програм- 
мы. Если строка имеет номер и не противоречит соглашениям 
синтаксиса Beta Basic, она заимет соответствующее место в прог- 
рамме. В противном случае компьютер выдаст сообщение Nonsense 
in Basic. Выполним строку программы: 


10 KEYIN “20 PRINT ""Hello”””” 


Она выведет Ha экран: 
НеНо 
— а текст примера станет выглядеть так: 
10 KEYIN "20 PRINT ""Нейо""" 
20 PRINT “Hello” 
Таким образом, описываемый оператор позволяет программе 
Г 
модифицировать саму себя по ходу выполнения! 


При работе оператора KEYIN могут встретиться некоторые не- 
ожиданности. Отметим лишь, что KEYIN гораздо надежнее работает, 
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когда генерируемые HM строки располагаются в тексте программы 
после него. 


Сфера применения оператора КЕУМ весьма широка. В первую 
очередь необходимо сказать о возможности с его помощью ге- 
нерировать данные для ОАТА-списков. Такая потребность может 
возникнуть, если необходимо передать данные из одной програм- 
мы, работающей в среде Beta Basic, в другую, которая для уско- 
рения расчетов должна быть скомпилирована. Как известно, ком- 
пиляторы Зреспит-Бейсика не позволяют работать «в лоб» с 
внешней памятью (магнитофоном или AHCKOBOAOM). При помощи 
же оператора КЕУМ данные, сформированные первой программой 
и сохраненные в виде массива на ленте, можно преобразовать в 
списки операторов DATA. Полученные ОАТА-списки объединяются 
со второй программой и совместно с ней компилируются. 


ПРЕОБРАЗОВАНИЕ ЧИСЕЛ 


BIN$(), HEX$(), DEC() 





эзреснит-Бейсик располагает только одной функцией преобра- 
зования чисел из одной системы счисления в другую — ВМ, пере- 
водящей двоичные числа в десятичные. Beta Basic добавляет еще 
три: BIN$, НЕХ$ и DEC. 


Функция 
BINS (<число> ) 


выполняет действие, обратное функции BIN — переводит числа в 
интервале 0...65535 из десятичного в двоичное представление. 
Результат возвращается в виде символьной строки длиной 8 
символов для чисел в интервале 0...255 и 16 символов — для 
остальных чисел из допустимого диапазона. Наглядно работу 
функции представляет следующий пример: 


DO: PRINT АТ 0,0; BIN$(IN 65022): LOOP 


Порт 65022 обслуживает клавиатуру, точнее, клавиши A, $, О, Е 
и С (подробнее см. в [1]). Если эти клавиши не нажимать, то на 
экране будет представлено число ххх11111 (5, 6 и 7-й биты 
предназначены для других целей и могут принимать произвольное 
значение). Нажатие перечисленных клавиш приведет к появлению 
нулей в соответствующих позициях числа. Так, удерживаемые 
одновременно клавиши А и С дадут такой результат: ххх01 110. 

С помощью функции BIN$ удобно просматривать область симво- 
лов, определяемых пользователем, область атрибутов, системные 
переменные ит. п. Для получения в результирующей строке сим- 
волов, отличных OT 0 или 1 (например, пробела и черного квадрата 
из набора псевдографических символов ZX Spectrum), необходимо 
выполнить 


РОКЕ 62869,"<символ, заменяющий ноль>": 
РОКЕ 62865,"<симвопл, заменяющий единицу>" 


282 


ea др 


er. wee © 


МАТЕМАТИЧЕСКИЕ ФУНКЦИИ 


Функция 
НЕХ$ (< число> ) 


переводит десятичное целое число (например, адрес ячейки па- 
мяти) в шестнадцатеричный вид. Результат возвращается в виде 
двухсимвольной строки для чисел от —255 до 255 и четырех- 
символьной — для всех больших из диапазона —65535...65535. 


Операцию обратного преобразования выполняет функция 
ОЕС (< строка символов > ) 


Она переводит числа из шестнадцатеричного представления в 
десятичное. Аргумент функции должен быть двух- или четырех- 
символьной строкой, представляющей собой шестнадцатеричное 
число (шестнадцатеричные цифры А...Е могут быть как строчные, 
так и прописные). Например, в результате выполнения оператора 
PRINT DEC("9C40") на экран будет выведено число 40000. 


МАТЕМАТИЧЕСКИЕ ФУНКЦИИ 


COSE(), SINE(), RNDM(), AND(), ОВ(}, XOR(), MOD() 





Язык программирования Beta Basic вводит несколько новых ма- 
тематических функций и среди них две тригонометрические (ана- 
логи уже существующих в 5ресиат-Бейсике}: 


СО$Е (< число > ) 
$ИМЕ (< число > ) 


Появление этих дубликатов оправдано тем, что они работают в 
пять раз быстрее своих предшественников, правда, с несколько 
меньшей точностью (вследствие четырехбайтового представления 
обрабатываемых ими чисел), что, впрочем, в большинстве случаев 
допустимо. 


Функция 
РМОМ (< число > ) 


возвращает случайное число в интервале от 1 до числа, заданного 
аргументом. Помимо того, что RNDM работает с вдвое большей 
скоростью относительно стандартной RND, она генерирует последо- 
вательность псевдослучайных чисел с менее заметной закономер- 
ностью. Действительно, строка 


ОО: PLOT RND*255,RND*175: LOOP 


— покрывая экран точками со случайными координатами, уже Ha 
пятой минуте своей работы обнаружит явную тенденцию разме- 
:цать их с определенной закономерностью, а через полчаса просто 
покроет экран регулярной сеткой из ломаных линий. После заме- 
ны этой строки на 


DO: PLOT RNDM (255), ЕМОМ (175): LOOP 


экран будет покрываться точками равномерно по всей по- 
верхности. 
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Три новые функции: AND, ОК и XOR выполняют операции бина- 
рной математики. Функция 


АМО (< число› ‚ <чиспо > } 


осуществляет поразрядное логическое умножение (операцию "И") 
двух чисел, находящихся в интервале 0...65535. Одно из приме- 
нений функции АМО — это определение одновременного нажатия 
клавиш при опросе клавиатуры, как это делается в следующем 
примере: 

90 IF AND(BIN 00010001 ,IN 65022)=0 THEN BEEP 0.1,12 

100 GO TO 90 


Значение, считанное из порта 65022 (клавиши А, S, О, Еи С), 
маскируется двоичным числом 00010001. Если на клавиатуре 
нажать одновременно клавиши А и С, из порта будет считано 
число 11101110, и только в этом случае функция АМО вернет ноль 
и программа подаст звуковой сигнал. 


Функция 
ОВ (< чиспо› ‚ < чиспо> ) 


делает поразрядное логическое сложение (операцию "ИЛИ") двух 
чисел (0...65535). 

С помощью функции ОК можно, например, определить, не на- 
жата ли хотя бы одна из интересующих нас клавиш. Для клавиш! А 
или С решение поставленной задачи выглядит так: 


90 IF OR(BIN 1110111019 65022)<>255 THEN BEEP .1,12 
Функция 
ХОР (< число>›, <число> ) 
выполняет операцию "исключающее ИЛИ" двух чисел (0...65535). 
Еще одна математическая функция: 
МОБ (< число 1>, «число 2>) 


возвращает остаток от целочисленного деления «числа 1> на 
‹число 2>. Оба аргумента должны быть положительными. 
Например, MOD(29,9) возвращает число 2, поскольку 29-9х3=2. 


ПРОЧИЕ ОПЕРАТОРЫ И ФУНКЦИИ 





Beta Basic расширяет возможности оператора SAVE, сохраняя 
его исконное назначение — записывать программы и данные на 
магнитную ленту. Прежде он записывал программу только це- 
ликом. Beta Basic же допускает новый синтаксис этого оператора: 

SAVE ‹номер строки» ТО <Homep строки > |; <логический адрес 

устройства › |;|, < "имя файла"> [LINE <Homep строки автостарта > | 


Этот синтаксис обеспечивает сохранение фрагмента программы. 
Так, оператор SAVE 10 TO 120;"ТЕ$Т" запишет на магнитофон часть 
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программы с 10-й строки по 120-ю включительно под именем TEST. 
При этом область переменных на ленте не сохраняется. Команда 
SAVE DATA <"имя файла"> сохранит на внешнем носителе только 
область переменных программы. 


В связи с новыми возможностями SAVE закономерно появление 
оператора 


VERIFY <Homep строки> ТО <Homep строки» 
[;<погический адрес устройства > |; |, <"имя файла" > 


Очевидно, что он проверяет правильность записи на ленте фраг- 
мента программы, ограниченного указанными номерами строк. 


Использование параметра «погический адрес устройства> (0, 1, 2...) 
имеет смысл только при подключенном интерфейсе типа 
Interface 1, поддерживающем микродрайвы, локальную сеть ит. д.. 
(см. [1]. Имя устройства, с которым будут работать операторы 
LOAD, SAVE, VERIFY и MERGE можно задавать и по умолчанию, 
используя уже знакомый нам оператор DEFAULT. В этом случае OH 
имеет следующий формат: 


DEFAULT=<uma устройства» 


Здесь под «именем устройствах понимаются логические имена 
внешних устройств: t (магнитофон); т«номер микродрайва> 
(микродрайв}; п‹номер узла> (узел локальной сети); b (интерфейс 
RS-232C, канал "В"); d (диск). 


Наполняется новым содержанием и оператор CLEAR. Выпол- 
нение его с параметром в интервале —767...767 (3х256-—1) смещает 
RAMTOP вверх или вниз на заданное число байт. Заметим, что 
при выполнении этого оператора не делается проверка на пересе- 
чение КАМРТОР с текстом программы. 

Интерпретатор Beta Basic работает во 2-м режиме прерываний 
(IM2) процессора 7.80. Благодаря этому возможен принудительный 
выход в интерпретатор из программ в машинных кодах (не изме- 
няющих режим прерываний). Для этого необходимо удерживать 
клавишу Break (CS/Space) более одной секунды. Именно таким 
образом прерывается работа операторов REF и AUTO. Иногда такой 
прием позволяет вырваться из зависшего состояния компьютера. К 
сожалению, 2-й режим прерываний не позволяет «в лоб» работать 
с операционной системой TR-DOS. Тем не менее, существует не- 
сколько приемов, позволяющих обойти эти трудности. Они описа- 
ны в Приложении 5. 


На этом закончим рассказ об операторах и функциях интерпре- 
татора Beta Basic. Хотим только отметить, что мы ни в коей мере не 
претендуем на полноту описания этого языка программирования. 
Не исключено, что некоторые его возможности так и остались 
неразвеланными — излагался лишь наш собственный опыт 
постижения Beta Basic. 
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ПРИЛОЖЕНИЯ 





1. Алфавитный перечень операторов Beta Basic 


Таблица 20. 


имен переменных, чис- ALTER 1.1 ТО 1.2 
ловых констант, строк сим- | ALTER "Ве" TO "Please” 
вопов в тексте программы 


Смена атрибутов экрана на | ALTER INK 3 TO PAPER 7 | 249 
заданные 


Задает режим автомати- AUTO 100,10 


Поиск и замена по образцу | ALTER Nm TO Num 


ческой генерации номеров | AUTO 0 
строк программы 


39 
Перемещает RAMTOP на CLEAR 15 285 
указанное количество байтов 

58 


Устанавливает текущее вре- | CLOCK "15:30:00" 2 
мя; задает время подачи CLOCK "A15:35” 

звукового сигнала и/или пе- | CLOCK 1200 

рехода к подпрограмме; за-| CLOCK 7 

дает подпрограмму обра- 

ботки прерывания, устанав- 

ливает режимы работы 


Стирает содержимое окна | CLS 3 251 
с заданным номером 


Копирует содержимое СОРУ ие ТО 5) ТО В(7) 
одного массива ипи его COPY А$(ТО 6) ТО В$(9) 
части в другой массив 


Задает размер символов в | CSIZE 5,9 
текущем окне, переключа- | CSIZE 0 
ет драйверы вывода на 

экран 


DEFAULT Присваивает значение 
[С] $$/2 переменной, если она 
ранее не была определена 


Приписывает указанной DEF KEY “h":"HELLO:” 
клавише заданную после- DEF KEY "8": CSIZE: 4,8 
довательность операторов 





ПРИЛОЖЕНИЯ 







DEF PROC Заголовок процедуры DEF PROC Test A,B,REF С| 261 
[G] 1 | DEF PROC Sum DATA 

DELETE Удаляет фрагмент DELETE 1200 TO 2500 243 
[С] 7 программы DELETE 0 ТО 0 















Удаляет массив или часть DELETE ay 5 TO 23) 
13) 


массива; удаляет часть DELETE О 
символьной переменной 


Заголовок цикла типа DO: 265 
DO...LOOP PLOT RND*255,RND+*175: 
LOOP 
DPOKE Записывает по указанному ОРОКЕ 42484, 5088 268 
[С] Р адресу двухбайтовое чиспо 









DRAW ТО | Проводит линию ипи дугу DRAW ТО 70,100 
[К] W + SS/F| из текущей точки в точку с | DRAW TO 120,120,3/2+PI 


указанными абсолютными 

координатами 
EDIT 30 
EDIT A$ 278 
EDIT .@ 


IF A=1 THEN: 254 
PRINT "Ву": RETURN: 

ELSE: 

PRINT "We'll rock you”: 

GO TO 1282 


DEF PROC Wiper: 
ро: 9 
iF=1 THEN RETURN: 

























EDIT 
Enter+ 0 


EDIT 

[С] $$/5 
ELSE 

[С] Е 

END PROC 
[С] 3 


Вызывает Ha редактиро- 
вание строку программы 










Вызывает на редактирова- 
ние переменную 








Начинает блок операторов 
в конструкции типа 

iF... THEN...BLSE, 
выполняющийся в случае, 
если условие пожно 























Оператор конца 261 
процедуры. Осуществляет 


возврат управления 

















основной программе. CLS 2 

Аналогичен RETURN END PROC 
EXIT IF Осуществляет выход по EXIT IF |=28 266 
[G] I условию из цикла типа 

ОО...ГООР 

Заливает участок экрана, FILL INK 3; 70,70 252 






ограниченный замкнутым 
контуром, цветом РАРЕК 
или INK 








FILL 
[С] Е 
СЕТ 
[С] G 





Присваивает символьной пе- 
ременной симвоп нажатой 
клавиши или числовой пере- 
менной — порядковый но- 
мер клавиши. 
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GET A$,42,38,2,3 





Считывает с экрана в сим- 
вольную переменную 
спрайт с указанными 
размерами 
















СО ТО ОМ | Осуществляет переход на GO TO ON J; 50,70,90 


[К] G +[G] о | строку из указанного 
списка в соответствии со 
значением заданной 

переменной (выражением) 





























GO SUB ON GO SUB ON J; 70,80,90 . 


[к] H +[G] 0 


JOIN 
[С] $5/6 


Осуществляет вызов под- 
программы, начинающейся 
со строки из указанного 
списка, в соответствии со 
значением заданной пере- 
менной (выражением) 











Сцепляет строку програм- | JOIN 50 241 
мы с указанным номером 
ипи текущую строку со 
следующей за ней строкой, 
записывая их через 
двоеточие под одним 
номером 

























Переносит содержимое 
одного массива или его 
части в другой массив 


JOIN C() ТО D() 
JOIN E$() TO F$(5) 


KEYIN "1200 LET А=8763" 





JOIN cf TO 7) TO B(10) 

















Помещает заданную строку 
символов в текст 
программы 


















KEYWORDS 1 
KEYWORDS 4 


Переключает режим 
ключевых слов Beta Basic в 
режим Graphics и обратно, 
устанавливает способ ввода 
ключевых слов в строку 


редактирования 


























LIST 10 TO 50 
LIST TO 70 

LIST #14; 50 TO 
LIST 


Выводит на экран (или в 243 
символьную переменную 


Z$ no LIST #14) листинг 


KE YIN 
[С] $$ /4 
программы в пределах 


KEYWORDS 
[G] 8 
указанных строк 


Распечатывает текст LIST PROC PortRead 261 
указанной процедуры 
























Распечатывает номера LIST REF "Org” 
строк‚содержащих LIST REF Num 
указанный ключ 
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Распечатывает содержимое | LIST DATA 
переменных и размерности | LIST VAL 
массивов программы LIST VAL$ 
Распечатывает LIST DEF KEY 
макроопределения клавиш 

LOCAL Объявляет переменные LOCAL A,B,C 

[С] $$/3 процедуры локальными 

LOOP Оператор окончания цикла | см. оператор DO 

[G] L tuna DO...LOOP 


ON Исполняет один из опера- ОМ J: 

[С] О торов, стоящих после него | PRINT “Line 1": 
в строке, в соответствии со | РАМТ "Line 2": 
значением указанной PRINT “Line 3" 
переменной (выражения) 


ON ERROR | Задает номер строки, с ON ERROR 3500 

[G] N которой начинается под- ON ERROR: ВЕЕР 1,1: 
программа обработки RETURN 
ошибок, или описывает эту 
подпрограмму 


Выводит строку симвопов PLOT 100,70;"Demo” 
(спрайт) в заданную точку 
экрана 


Записывает в память РОКЕ 40000, "Зита" 
компьютера строку кодов 

символов, начиная с 
заданного адреса „у 


Снимает со стека GO SUB и 
присваивает переменной 
(если она указана) значе- 
ние адреса возврата из 
процедуры ипи адрес 
заголовка цикла типа 
DO...LOOP 


Вызывает процедуру с PROC Sub! 3, , А+2, 
заданным именем и 0(5) 

передает ей значения 

фактических параметров 


Считывает значения DEF PROC Test DATA: 
фактических параметров, DO UNTIL ITEM()=0: 
передаваемых в процедуру | READ LINE a$ 
списком произвольной 

длины 
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Осуществляет поиск no REF Num 

[С] $$/7 образцу в тексте програм- | REF "5иБ1" 
мы и вызывает на редакти- | REF 3 
рование строки, удовлет- REF (A$) 
воряющие условию поиска 


задает передачу DEF PROC Test REF а 


параметров в процедуру 
по ссылке 


Перенумеровывает строки | RENUM 70 LINE 90 STEP 5 
программы из указанного 

диапазона, начиная с 

заданного номера, ис 

заданным шагом 


Осуществляет циклический | ROLL 5;0,175;50,88 
скроллинг окна экрана на 

заданное количество 

пикселей в указанном 

направлении 


SAVE Производит запись на ленту | SAVE 10 TO 70; 
[К] $ фрагмента программы или | “Filename” 
ласти переменных SAVE DATA “Filename” 


Осуществляет скроллинг SCROLL 5;0,175;50,88 

окна экрана Ha заданное 

количество пикселей в 

указанном направлении 

Сортирует числовой или SORT Ay) 
ee символьный массив по SORT А$( TO Ey ТО) 


убыванию или возрастанию | SORT INVERSE A( 
значений его элементов 


TRACE Задает номер строки под- | TRACE 7000 
[с] т программы обработки пре- | TRACE: LIST VAL: 
рывания, обращение к кото-| RETURN 
рой будет осуществляться 
поспе каждого выпопнен- 
ного оператора программы 
или описывает эту 
подпрограмму 


Задает критерий окончания | DO UNTIL ABS X<Eps 266 
цикла типа DO...LOOP 
USING В операторе PRINT (LPRINT) | PRINT USING "#.##"; А| 248 
[G] U задает шаблон вывода чисел 


VERIFY Осуществляет проверку VERIFY 10 TO 70; "Мате" 
[Е] SS/R записанного Ha ленту фраг- 

мента программы из 

указанного диапазона строк 
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“WHILE “| 
[G] J 


OP 
WINDOW Задает координаты и WINDOW 5; 
[С] 5 размеры текстового окнас | 0,175,9,50 
указанным номером 
Объявляет текущим окно с 
заданным номером 


2. Алфавитный перечень функций Beta Basic* 


Таблица 21. 


"AND Результат поразр AND(A,B) 
A "И" двух чисел 


BINS Двоичный эквивалент BIN$(12) 
BS десятичного числа 


тр: 
a 
CHARS Представление целого СНАК$(40000) 277 
C$ числа из диапазона 
0...65535 двумя байтами 1 
283 


ПРИЛОЖЕНИЯ 





COSE Косинус числа. Работает СОЗЕ(Р!) 

с быстрее стандартной 
функции COS 
Десятичный эквивалент DEC("9C 40") 
шестнадцатеричного числа 


Десятичное целое число, ОРЕЕК 40 000 
представленное в памяти 


по указанному адресу 
двумя байтами 





Работает только с 
Interface 1 


последней операцией FILL 


Количество PRINT FILLED() 252 
инвертированных пикселей 

Шестнадцатеричный экви- | НЕХ$(40000) 283 
валент десятичного числа 





Набор функций Beta Basic осуществляется с помощью ключевого слова FN и бук- 


ВЫ, указанной в таблице ниже названия функции. 
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4 


INARRAY | Номер строки двумерного 
символьного массива, в 
которой обнаружено 
очередное вхождение 
строки-образца 

$ 


5 








INARRAY(A$(7)(3 TO 9),B$) 





269 















U 
INSTRING | Позиция в базовой строке, | INSTRING (Start,A$,"TEST”) 
I начиная с которой 
обнаружено очередное 
вхождение строки-образца 
ITEM Тип очередного данного в | ITEM() 263 
т списке ОАТА, который 
предстоит считывать 
оператору READ 
Количество свободной па- | MEM() 243 
мяти для бейсик-программ 
MEMORY | Содержимое участка памя-| MEMORY$()(0 TO 23295) 268 
м ти, представленное 
символьной строкой 
MOD Остаток от деления двух MOD(A,B) 28 
у чисел 
LENGTH | Размер массива no LENGTH(1,"A(1)") 27 
L заданному измерению 
Целое число из диапазона | NUMBER(CHR$ 55+CHR$ 28)| 277 
0...65535 — эквивалент 
двухбайтовой строки 
Результат поразрядного OR (A,B) 284 
"ИЛИ" двух чисел 
Случайное число в RNDM(175) 283 
диапазоне от 0 до числа, 
указанного в аргументе 


SCRN$(10,5) 249 







1-4 


oO 





Символ (в том числе из Ha- 
бора UDG), стоящий в 
указанных строке и 
столбце экрана 














Строка символов, преобра- | SHIFT$(3,"QWERTYqwerty”) | 270 
зованная по правилам в со- 
ответствии со значением 


первого аргумента 


Синус числа. Работает SINE(PI) 283 
быстрее стандартной 
функции SIN 

69 


Приведенная строка STRING$(N,"#") a 
символов, повторенная 


ses заданное количество раз 


os a 
T$ 
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м 
мл 
Н 
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Cr 










Символьное представ- 
U ление числа в соответствии 
с заданным форматом 


XOR Результат поразрядного XOR(L,M) 284 
X "исключающего ИЛИ” 
двух чисел 


3. Перечень сообщений об ошибках Beta Basic 


2 









К стандартному перечню сообщений об ошибках (см. стр. 98) 
Beta Basic добавляет ряд собственных с кодами 5...Х. Меняются 
также ситуации, в которых появляются стандартные сообщения с 
кодами Си J: 


С No room for line нет места для строки 


При перенумерации строк оператором RENUM сгенерированы 
номера уже существующих строк, не входящих в указанный 
интервал. 

J Invalid 1/О device неверное устройство ввода-вывода 


Обращение к окну с несуществующим номером при помощи 
операторов WINDOW или CLS. 


S Missing LOOP отсутствует LOOP 


He может быть найдено окончание цикла при использовании 
EXIT IF или при встрече ОО, условие которого не предполагает ни 
одного прохода цикла. 


Т LOOP without DO LOOP 6e3 DO 


Применен оператор LOOP без DO либо осуществлен вход в тело 
цикла, минуя его заголовок. 


U No such line нет такой строки 
В команде DELETE указан номер несуществующей строки. 
У No POP data нет данных для POP 


Сделана попытка снять оператором POP данные со стека GO SUB, 
когда тот был пуст. 


W Missing DEF PROC отсутствует DEF PROC 


Не найдено описание процедуры с указанным именем. Приме- 
нен оператор LOCAL или END PROC без DEF PROC, либо осуществ- 
лен вход в тело процедуры, минуя его заголовок. 


Х No END PROC Het END PROC 


При попытке «перешагнуть» встреченное в тексте программы 
описание процедуры не может быть найдено ее окончание. 
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Значение, соответствующее коду ошибки, содержится в пере- 
менной ERROR, к которой имеется доступ из интерпретатора. Для 
сообщений с кодами 1...8 значение этой переменной равно самому 
коду, для сообщений с кодами от А до P — соответственно, 10...27. 
Для ошибок интерпретатора Beta Basic (коды S...X) значение 
ERROR равно 28...33. Аля сообщений с кодами 0 и 9 переменная 
ERROR не определена. 


4. Распределение памяти при работе с Beta Basic 


Р_КАМТ (23732) 
Символы, определяемые пользователем 
UDG (23675) 
Интерпретатор Beta Basic 
46960 

Область системных переменных для 

WINDOW, описание макрокоманд 
RAMTOP (23730) 


E_LINE (23641) 
Переменные Бейсика 
VARS (23627) 
Бейсик-программа 
РКОС (23635) 


5. Использование Beta Basic с системой TR-DOS 


Для того чтобы организовать корректную работу Beta Basic с 
TR-DOS, необходимо перед обращением к диску включать режим 
прерываний 1М1, а затем возвращаться в IM2. Это можно делать, 
используя готовые процедуры в кодах, которые размещены в теле 
интерпретатора Beta Basic. Загрузка программы с диска, 
например, будет выглядеть так: 


100 RANDOMIZE USR 63243: REM Включаем IM] 
110 RANDOMIZE USR 15619: REM: LOAD "filename” 
120 RANDOMIZE USR 61369: REM Включаем IM2 


Впрочем, не обязательно каждый раз после обращения к диску 
возвращаться в режим 1М2. Если в программе не используется 
оператор CLOCK и нет необходимости использовать клавишу Break 
для возврата в Beta Basic из процедур в кодах, то интерпретатор не 
замечает «подлога» и вполне корректно работает в IM1. Поэтому, 
как правило, достаточно в программе перед первым обращением к 
диску сменить режим прерываний на IMI, а в завершение ee 
работы восстановить режим 1М2. 
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Язык программирования Бейсик, «зашитый» в память 
ZX Spectrum 128, очень похож на стандартный Зресиит-Бейсик. В 
основном, отличие заключается в расширении функций редакто- 
ра, а также в поддержке дополнительных аппаратных средств: 
музыкального процессора и электронного диска. 


При включении ZX Spectrum 128 на экран выводится главное 
меню, предлагающее на выбор один из режимов работы компьюте- 
ра: Tape Loader, 128 BASIC, Calculator, 48 BASIC и Tape tester. 
Войти в нужный режим можно, установив клавишами {и | 
голубую полоску на соответствующую позицию меню и нажав 
клавиши Enter или Edit. Коротко опишем эти режимы. 


Tape Loader | Единственное назначение режима — загружать прог- 
рамму с магнитофона, то есть выполнять самую 

популярную команду Бейсика LOAD "". Загружать можно как 
программы AAA Spectrum 128, так и для Spectrum 48. Ho не 

все программы, написанные на стандартном Spectrum- 
Бейсике, после загрузки в этом режиме будут работать. При 
нажатии клавиши Break происходит возврат в главное меню. 


128 BASIC После выбора этой позиции меню компьютер пере- 
ходит в интерпретатор Бейсика 128*. Его мы подроб- 
но опишем далее. 


Эта опция превращает компьютер в калькулятор, 


производящий математические расчеты с использо- 
ванием всех операции и функций Бейсика. В режиме кальку- 
лятора работает экранный редактор, поэтому можно рас- 
считывать значения выражений уже находящихся на экране. 
В выражениях могут стоять не только числовые значения, но 
и переменные, ранее определенные в бейсик-программе. За- 
дать переменную можно и в самом калькуляторе, выполнив, 
например, LET a=1. Расчет выражения производится после 


Так для краткости будем называть Бейсик, «зашитый» в ZX Spectrum 128. 
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нажатия клавии!и Enter. Результат выводится в следующую 
за выражением строку. Аля выхода из режима нужно нажать 
клавишу Edit и в появившемся меню из двух пунктов 
(Calculator и Exit) выбрать второй. 


48 BASIC Работая в этом режиме, компьютер становится прак- 


тически полностью совместимым с ZX Spectrum 48*. 
Выйти из режима 48 BASIC можно, только выключив компью- 
тер или нажав кнопку RESET. 


Tape tester Не 6yAeM подробно описывать этот режим, отметим 


только то, что он предназначен для настройки маг- 
нитофона на запись/считывание информации. Возврат в 
главное меню осуществляется по клавише Break. 


Если при включении ZX Spectrum 128 удерживать клавишу 
Break, то компьютер начинает выполнять тестовую программу, 
выйти из которой можно, только выключив его или нажав кнопку 
RESET. 


КЛАВИАТУРА 





Клавиатура ZX Spectrum 128 содержит 58 клавиш. Аппаратно 
она организована аналогично клавиатуре ZX Spectrum (и полно- 
стью совпадает с клавиатурой ZX Spectrum+). Дополнительные 18 
клавиш лишь дублируют наиболее часто используемые сочетания 
пар клавиш. Например, нажатие клавиши Edit аналогично дейст- 
вию пары CS/1. Соответствие дополнительных клавиш стандарт- 
ным парам приведено в табл. 22. 


Таблица 22. Дополнительные клавиши ZX Spectrum 128. 





ZX Spectrum 128 







True Video 






Inv Video 


Delete 






Graphics 







Extend Mode 






Caps Lock 
Break 









Некоторая несовместимость может возникнуть, например, из-за отличий в 
«прошивке» ПЗУ. 
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Следует отметить, что в режиме 1.% BASIC некоторые клавиши 
не выполняют приписанных им в стандартном Зресиат-Бейсике 
функций. Например, в этом режиме не работают клавиши True 
Video и Inverse Video, хотя они и имеются на клавиатуре. 

В Бейсике 128 ключевые слова вводятся посимвольно (в TOM 
числе знаки <>, <= и >=). Символы [, J, a \, {, } и ~ по-прежнему 
набираются через Extend Mode (CS/SS). Кроме того, в ключевых 
словах при вводе не делается различий между строчными и 
прописными буквами. 


ЭКРАННЫЙ РЕДАКТОР 





В редакторе Бейсика 128 нет явного деления экрана на основ- 
ной (верхний) и служебный (нижний). Вводить и редактировать 
строки программы можно на всем пространстве экрана, точнее в 
верхних 22 его строках. Нижние две строки вспомогательные: в 
23-й индицируется режим работы, в 24-й выводятся сообщения об 
ошибках. Впрочем, можно изменить режим и перевести редактор в 
две нижние строки экрана (см. дальше). 

Знакоместо, в которое при нажатии клавиши будет помещен 
очередной символ, выделяется голубым курсором. Курсор переме- 
щается по экрану клавишами f, |, < и >. Удалить символ, 
стоящий перед курсором, можно, нажав клавишу Delete. 

Поскольку ключевые слова Бейсика 128 вводятся по буквам, то 
нужно отделять их друг от друга пробелами. Цифры и знаки 
математических операций в программах также являются раз- 
делителями. 

Набранная строка вводится клавишей Enter. Если у интерпрета- 
тора нет претензий к синтаксису строки, то раздается короткий 
звуковой сигнал и она выполняется или помещается в программу. 
Переход на другую строку с помощью команд редактора (о них 
дальше) также приравнивается к нажатию Enter. 


Об обнаружении ошибки интерпретатор оповещает характер- 
ным звуком и помечает красным курсором позицию в строке, в 
которой ошибка найдена. И пока она не будет исправлена, интер- 
претатор не только не примет строку, но и не позволит выйти за ее 
пределы. 


В Бейсике 128 нельзя ввести с клавиатуры коды непосредствен- 
ного управления цветом (как в стандартном Бейсике в режиме 
курсора [Е]). 

К ZX Spectrum 128 предусмотрено подключение специальной 
дополнительной клавиатуры, делающей более удобной работу с 
редактором. Достать или сделать ее самому достаточно сложно, но 
не стоит расстраиваться: все возможности экранного редактора 
можно использовать, работая и только на основной клавиатуре. В 
табл. 23 приведены комбинации клавиш основной клавиатуры, 
при нажатии которых выполняются те или иные команды ре- 
дактора. 
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Таблица 23. Команды редактора Бейсика 128. 





Extend+P курсор на 10 строк вверх 


курсор на 10 строк вниз 
курсор в начало строки 




















МЕНЮ БЕЙСИКА 128 





Нажав клавишу Edit, можно из редактора войти в меню 
Бейсика 128. Кратко опишем пункты этого меню. 


Возврат к редактированию программы. 
Перенумерация строк программы, начиная с номера 


10 ис шагом 10. Команда изменяет параметры в 
операторах перехода и вызова подпрограмм, но только при 
условии, что номера строк перехода заданы в явном виде 
(числом). Номер первой строки и шаг перенумерации можно 
менять, записывая с помощью оператора РОКЕ другие зна- 
чения в ячейки памяти с адресами, соответственно, 23444/45 
и 23446/47. Приведем небольшую программу, которая зада- 
ет параметры перенумерации: 

10 POKE 23444,Бедт—256жМТ(Бедт/ 256) 
20 POKE 23445,INT(begin/256) 

30 РОКЕ 23446,step—256+INT(step/256) 
40 POKE 23447, INT(step/256) 


Переменная begin должна содержать номер первой строки, 
step — шаг перенумерации. 
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Если при заданных параметрах номер последней строки ока- 
зывается более 9999, то перенумерация не будет осуществле- 
на. 


Перевод окна редактора в две нижние строки экрана. 
Опция предназначена AAA тех случаев, когда жела- 
тельно сохранять в процессе редактирования информацию в 
верхних строках экрана (например, при графических постро- 
ениях). Возвратиться к основному режиму работы редактора 
можно, повторно выбрав этот пункт меню. 


Распечатка на принтере листинга бейсик-программы, 
находящейся в памяти. 


Переход в главное меню ZX Spectrum 128 (текст бей- 
сик-программы сохраняется). 


ОПЕРАТОРЫ БЕЙСИКА 128 





Список операторов Бейсика 128 дополнен относительно стан- 
дартного лишь двумя новыми операторами SPECTRUM и PLAY, кроме 
того, модифицированы некоторые старые. 

Скорость выполнения программ в режиме 128 BASIC несколько 
ниже, чем в режиме 48 BASIC. Это связано с тем, что при выпол- 
нении многих операторов используются подпрограммы стандарт- 
ного Бейсика и на переключение режимов уходит дополнительное, 
хотя и небольшое, время. 


Ниже описаны новые операторы Бейсика. 


SPECTRUM 


Оператор SPECTRUM переключает компьютер в режим эмуляции 
ZX Spectrum 48, то есть выполняет действие, аналогичное опции 
48 BASIC главного меню. Отличие только в том, что при переходе с 
помощью оператора SPECTRUM программа, находящаяся в памяти, 
сохраняется. Если оператор SPECTRUM выполняется в программе, TO 
она останавливается с сообщением 0 OK. 

Кроме того, оператор SPECTRUM переопределяет канал, обслу- 
живающий принтер. После выполнения оператора вся инфор- 
мация, поступавшая ранее на принтер, будет выводиться на экран. 


РЕАУ 


Оператор РЕАУ = основная достопримечательность 
Бейсика 128. Он обслуживает встроенный в ZX Spectrum 128 
трехканальный музыкальный процессор*, на порядок увеличива- 
ющий звуковые возможности компьютера. 


Тип процессора — AY-3-8912. 
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Вслед за ключевым словом PLAY размещаются строки символов 
— стринги. Именно они задают музыкальную программу, то есть 
определяют, когда и что играть. В общем виде формат оператора 
записывается так: 


PLAY a$[,b$,c$,d$,e$,{$,9$,h$] 


— rae a$, Ь$, ..., h$ — стринги. Как видно из формата, за ключевым 
словом PLAY может следовать от 1 до 8 стрингов. Однако сам 
музыкальный процессор пользуется только первыми тремя из них 
— a$, Ь$ и c$. Они задают программы, соответственно, для каналов 
А, В и С музыкального процессора. Эти программы выполняются 
одновременно, причем можно заставить звучать как все три кана- 
ла, так и один или два, задав необходимое количество стрингов. 

Остальные стринги (4$, е$, ..., 1$} предназначены для управ- 
ления музыкальными инструментами, которые можно подключить 
к ZX Spectrum 128 через специальный МШ[-интерфейс*. 

Ноты ДО, РЕ, МИ, ФА, СОЛЬ, ЛЯ и СИ записываются ла- 
тинскими буквами, соответственно, с, 4, e, f, g, a H b. Например, 
оператор 


PLAY "cdefgabC” 
проиграет гамму ДО-мажор. 


Ноты следующей октавы обозначаются прописными латински- 
ми буквами С, 0, Е, F, С, А и В. Полутона задаются знаками: # — 
лиез и $ — бемоль. Например, ДО-диез, запишется Kak #с, СИ-бе- 
моль — $b, а гамма ДО-минор — cd$efg$a$bC. 

Длительность звучания нот определяется числом от 1 (мини- 
мальная) ло 9 (максимальная), стоящим перед нотой (табл. 24), 
например: PLAY "3G". Заланная длительность распространяется на 
все последующие ноты и паузы (см. команду задания паузы &). 

Числами от 10 до 12 программируются триоли. Ноты триоли 
следуют непосредственно за числом: 3fed&11fed&fed. Триоли не 
изменяют установленной длительности нот. 

Возможно сыграть ноту произвольной длительности. Для этого 
перед ней через символ подчеркивания (_) ставят несколько пара- 
метров, залающих требуемую длительность. Например, нота ДО 
длительностью 38 (8+4) запишется так: 3_5с. Алительность зву- 
чания последующих нот определяет последний параметр. 


Кроме нот, в музыкальных программах могут использоваться 
специальные команды оператора PLAY: 


О Изменение октавы. Номер октавы задается числом от 0 до 8 
(по умолчанию установлена 5-я октава). Все ноты после этой 
команды, pay звучать в выбранной октаве, пока она не будет 
сменена* 


Диапазон звучания в переделах заданной октавы можно рас- 
ширить, используя серии диезов или бемолей. Например, Оба 
можно записать как О4###Вю 


Musical Instrument Digital Interface — цифровой интерфейс для музыкальных 
инструментов. 


Заметим, что самые низкие ноты в”0-Й и 1-й октавах без МИЛ-интерфейса вос- 
производиться будут неправильно. 
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Таблица 24. Длительность звучания нот в операторе PLAY. 













Одиночные ноты 


Одна шестнадцатая 


И Одна шестнадцатая с точкой . 


Одна восьмая 


Одна восьмая с точкой Е 


Одна четвертая 


Е ВЕ Одна четвертая с точкой Е 








GSS 








e_jele, 


5 
7 Одна вторая 


Одна вторая с точкой ‘ 


о | Одна шестнадцатая + 
АО СООО 


Е 





3 


ыы 
<! 


Одна четвертая j 






М Разделитель параметров. Он используется в том случае, если 
нужно задать длительность звучания нот сразу за командой с 
числовым параметром: O6N4gD; хотя тоже самое допустимо 
записывать и с пробелом: O6 4gD. 


& Пауза установленной длительности: 6с&С (здесь длительность 
паузы равна 6). 

У Громкость звучания. Громкость задается параметром, следу- 
ющим за командой: от Q (минимальная — выключено) AO 15 
(максимальная). Минимальная громкость (команда VO) может 
использоваться для временного отключения канала. 

W Программирование эффектов. Ноты могут воспроизводиться 
не только с фиксированной громкостью, но и со всевозмож- 
ными эффектами: затуханиями, всплесками и т. д. Характер 
эффекта задается числом от 0 до 7, в соответствии с табл. 25. 


Х Временной параметр звукого эффекта. Для эффектов О0...3 
параметр задает длительность действия эффекта, для 4 и 5 — 
период, для 6 и 7 — полупериод. Значение параметра 
выбирается из диапазона 0...65535. Аля эффектов 0...3 
оптимальное значение — около 1000, для 4...7 — около 300. 
По умолчанию значение параметра принято равным 65535. 
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У Включение звукового эффекта. После этой команды все ноты 
будут воспроизводиться с эффектом, установленным коман- 
дой W. Эффекты отключаются по завершении стринга либо 
при изменении громкости (команда V). Следующая програм- 
ма продемонстрирует действие всех эффектов: 

10 FOR i=0 ТО 7 
20 PLAY "UX1000W"+STR$ i+"cdef&” 
30 NEXT i 


Таблица 25. Программирование звуковых эффектов. 


единичный спад, 
затем тихо 


единичный подъем, 
затем тихо 


Ня 


единичный спад, 
затем громко 


единичный подъем, 
затем громко 


повторяющийся 
спад 


повторяющийся 
подъем 


повторяющийся 
подъем-спад 


tetststetst 


повторяющийся 
спад-подъем 





‚ Параметр команды Х 


Т Темп исполнения. Задается числом в интервале от 60 до 240. 
По умолчанию устанавливается темп, соответствующий ко- 
манде Т1 20. Задать темп можно лишь для всей мелодии в целом, 
поэтому он определяется только в стринге канала А (в других 
каналах команда Т игнорируется}. 


(} Повтор музыкальной фразы. Музыкальная фраза, взятая в 
скобки, повторится еще раз: (ec)fe7d. Допустимо использовать 
не более 4 пар скобок. 


Закрывающая скобка без соответствующей ей открывающей 
заставит музыкальную фразу повторяться бесконечно от на- 
чала стринга. Используется это, например, в басовых партиях. 


Н Останов оператора PLAY. Встретив эту команду в стринге 
любого канала, оператор PLAY закончит свою работу. Команда 
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используется, например, для выхода из «зацикленной» басо- 
вой партии, когда заканчивается основная мелодия. 
Ограничитель комментариев. В стринг можно вставлять ком- 
ментарии — любой текст, ограничивая его знаками !. 
Например: 

PLAY "#c!cis!$d!des!" 


Знак ! в конце музыкальной программы ставить не обяза- 
тельно. 

М Режим работы каналов. Каждый канал может не только вос- 
производить чистый тон, но и одновременно генерировать так 
называемый белый шум. Распределение режимов задается ко- 
мандой М с параметром в интервале 1...63. Значение парамет- 
ра определяется суммой кодов, соответствующих режиму каж- 
лого из каналов (Табл. 26). 


Таблица 26. Режимы работы каналов. 





В следующем примере канал А настраивается на тон, а канал 
В — на шум: 


PLAY "M17cegbdfaCH”,”O3cC)” 


\У Установка канала МПЛ]-интерфейса. Число от 1 до 16, следу- 
ющее за командой, задает номер канала интерфейса, в кото- 
рый необходимо направить вывод музыкальных данных. 


Z Передача управляющих кодов МПШ]-интерфейсу*. 


ЭЛЕКТРОННЫЙ ДИСК 





В дополнительных 80 килобайтах памяти ZX Spectrum 128 
организован электронный диск, позволяющий оперировать не- 
сколькими программами без обращения к внешним носителям. 
Естественно, программы должны быть предварительно на этот 
диск записаны в виде файлов. Особенностью файловой структуры 
электронного диска является то, что на него не могут быть записа- 
ны файлы разных типов с одинаковыми именами. Емкость элект- 
ронного диска более 400 файлов. Перед выключением или сбро- 
сом компьютера файлы с электронного диска нужно переписать на 
магнитный носитель. Действие команды Бейсика NEW не за- 
трагивает электронный диск. 


* _ Подробнее см. в описании МШ-интерфейса [8]. 
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Операторы, поллерживающие работу электронного диска: 


SAVE! 
Запись файла Ha электронный диск. 


ГОАО! 


Считывание файла с электронного диска. 


МЕВСЕ! 
Подгрузка к программе файла с электронного диска. 


Эти три оператора похожи на инструкции работы с магнитофо- 
ном SAVE, LOAD* и MERGE и имеют аналогичный синтаксис. 


САТ! 


Вывод на экран каталога электронного диска (списка всех 
файлов). Файлы выводятся в алфавитном порядке. К сожалению, 
в каталоге не указываются типы файлов. 


ERASE! 


Улаление файла с электронного диска. Имя файла записывается 
вслед за ключевым словом без указания типа файла. Например, 
оператор ERASE! "Мате" удалит файл с именем "Мате" (независимо 
от его типа). Если файлов много, то выполнение этой команды 
может занять несколько минут! 


РАБОТА С ПРИНТЕРОМ 





Еще одно отличие Бейсика 128 от стандартного — поддержка 
другого типа принтера. Операторы печати, такие как "РАМТ, LLIST и 
COPY, работают с Ер5оп-совместимыми моделями принтеров. Под- 
ключается принтер с помощью встроенного в Spectrum 128 после- 
довательного интерфейса RS-232. 

Скорость передачи ланных по последовательному интерфейсу 
устанавливается оператором: 


FORMAT "р"; <speed> 


Параметр <speed> выбирается из ряда: 50, 110, 300, 600, 1200, 
2400, 4800, 9600 и должен соответствовать скорости обмена в 
бодах (бит/сек.), установленной в принтере. При запуске компью- 
тера устанавливается скорость 9600 бод. 


Символьный массив перед загрузкой с электронного диска должен быть опреде- 
лен оператором DIM. Иначе он будет загружен как простая строка символов. Это 
замечание справедливо и для загрузки с магнитофона символьного массива в 
режиме 128 BASIC. 
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° ПРИЛОЖЕНИЯ 





1. Сообщения об ошибках интерпретатора Бейсик 128 


Интерпретатор Бейсика 128 в дополнение к сообщениям об 


| ошибках стандартного Бейсика имеет и свои собственные: 


MERGE error 
не может быть выполнена команда MERGE!. 
Wrong file type 


несоответствие найденного и ожидаемого типа файла в команде, 
работающей с электронным диском. 


CODE error 


заланная в команде VERIFY!"NAME"CODE <start>,<length> длина 
(<length>) больше реальной длины файла. 





Too many brackets 
превышено число скобок в операторе PLAY. 
File already exists 


файл с указанным именем уже существует на электронном 
диске. 


Invalid name 
неправильное имя файла (либо пустое, либо более 10 символов). 
File does not exist 

файл с заданным именем не существует Ha электронном диске. 
File does not exist 

файл с заданным именем He существует Ha электронном диске*. 
invalid device 

в команде FORMAT задано неправильное имя устройства. 

Invalid baud rate 


в команде FORMAT задано нулевое значение скорости передачи 
по последовательному интерфейсу. 


Invalid note name 


в одном из стрингов оператора PLAY встретилась неопознанная 
команда. 


Это сообщение, очевидно, аналогично сообщению с кодом Q, однако ссылки на 
него в ПЗУ найти не удалось. 
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| Number too big 


в одном из стрингов оператора PLAY указано недопустимое зна- 
чение параметра. 


т Note out of range 


нота не может быть воспроизведена музыкальным процессором 
(например, нота С в 8-й октаве). 


n Out of range 


ЧИСЛОВОЙ параметр в команде музыкальной программы слишком 
мал или велик. 


о Too many tied note 


слишком много Параметров, залающих длительность, связано 
знаком . 


2. Системные переменные ZX Spectrum 128 





В ZX Spectrum 128 расширена область системных переменных. 
Сделано это за счет использования части оперативной памяти, 
отведенной в ZX Spectrum 48 под буфер принтера. Ниже приво- 
дятся название, адрес и краткое описание некоторых системных 
переменных, значения которых могут быть использованы из 
Бейсика. 


23389 (ВАМКМ) 


копия внутреннего системного регистра, определяющего те- 
кущую архитектуру компьютера (из Бейсика изменять не 
рекомендуется). 


23391 (BAUD) 


скорость обмена по последовательному интерфейсу. Хранится 
В «обратном» виде, то есть сначала записан старший байт, 
затем младший. 


23395 (COL) 


позиция (номер столбца) вывода Ha принтер. 


23396 (WIDTH) 


количество печатных позиций на принтере. При 
достижении этого числа программа печати автоматически 
переводит строку. 


23429/ 30/31 (SFSPACE) 


количество свободных байтов на электронном диске. 
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23444/45 (RNFIRST) 


номер строки начала при перенумерации строк. Хранится в 
«обратном» виде. 


23446 /47 (RNSTEP} 


шаг перенумерации. Хранится в «обратном» виде. 
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Издательский отдел фирмы 
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тельско-полиграфических работ; 


® производит подписку на книгу Н. Родионова 


«Адаптация программ к системе TR-DOS. 
(Советы начинающему хакеру}» (7 частей} 


Книга адресована тем, кто хочет проникнуть в тайны по- 
строения защищенных загрузчиков программ. Она может 
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начинающих программировать на ассемблере. 


Объем - 48 стр. Тираж 10000 экз. Цена подписки — 50 руб. 
Срок выхода книги — IV кв. 1992 г. 


® готовит к изданию книгу А. Ларченко 


«Дисковые операционные системы 
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Книга содержит обзор дисковых операционных систем для 
ZX Spectrum (CP/M, Микро ДОС, +3005, 1520$ и Ap.) и 
подробное описание системы TR-DOS: от начальных сведе- 
ний AO профессиональных тонкостей. 


Объем — 160 стр. Срок выхода книги — I кв. 1993 г. 
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книги «Диалекты Бейсика для ZX Spectrum» и других 
изданий фирмы; 


ое размещает рекламу в изданиях фирмы; 


e приобретает фирменные руководства, книги и жур- 
налы, посвященные ZX Spectrum; 


» принимает для публикации оригинальные статьи о 
ZX Spectrum; 


e приглашает на работу журналистов и редакционных 
работников, знакомых с ZX Spectrum. 
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Фирма «Питер» 


разработка и производство 
ZX $реснит-соместимых компьютеров 
и программного обеспечения 


Фирма предлагает 
частным лицам и организациям сотрудничество 
по распространению и обслуживанию 


учебных компьютерных комплексов на базе 
ZX Spectrum 


Компьютерный комплекс включает: 


e рабочее место преподавателя с двумя встроенными 
дисководами, цветным монитором, принтером, кас- 
сетным магнитофоном и джойстиком; 


» места учеников (ло 16) с цветными мониторами и 
лжойстиками; 


» дискеты с программами и техническую документа- 
ЦИЮ, 


Компьютеры объединены в многофункциональную ло- 
кальную сеть (программная поддержка Н. Родионова). 


Помимо системного и игрового программного обеспе- 
чения с комплексами поставляются оригинальные 
учебные программы по информатике, физике, матема- 
тике, астрономии, ботанике и другим школьным прелд- 
метам. 


Особый интерес представляет программный пакет, по- 
зволяющий создать на базе комплекса систему для 
обучения и приема экзаменов по правилам дорожного 
движения. 


Фирма «Питер» доставит комплексы в любой регион 
СНГ, сдаст заказчику «под ключ», обучит персонал, 
обеспечит гарантийное и послегарантийное обслужи- 
вание. 





Фирма «Питер» 


» реализует ZX $ресНит-совместимые компьютеры: 
руссифицированная клавиатура (QWERTY, ЙЦУКЕН), 
цветной (монохромный) монитор, один или два дис- 
ковода, принтер, набор системных и игровых про- 
грамм на дискетах. 


e продает учебные программы для ZX Spectrum 


Сборник 1. Аля младших школьников (1-5 класс): 
арифметика (3 программы, в том числе «Таблица умноже- 
ния»), геометрия (5 программ), русский язык (4 программы, 
в том числе «Азбука», «Приставки и суффиксы»), англий- 
ский алфавит, ботаника («Строение цветка»), обучающие 
игры («Правила дорожного движения», «Клавиатура 
ZX Spectrum») и др. 


Сборник 2. Аля старших школьников (6-11 класс): 
«Знакомство с ZX Spectrum», работа с клавиатурой (5 про- 
грамм), «Операторы Бейсика», астрономия (2 программы), 
физика (13 программ, в том числе «Кинематика», «Динами- 
ка», «Свободное падение тел», «Движение тел под углом к 
горизонту», «Тепловые явления», «Цепи переменного тока», 
«Транзистор») и др. 


Цена кассеты с учебными программами — 690 руб. 
дискеты — 630 руб. 


Программы выполнены на высоком профессио- 
нальном уровне с использованием всех возможно- 
стей ZX Spectrum: цветной графики, мультиплика- 
ции, звуковых эффектов. 


» предлагает системные программы, описанные в кни- 
ге «Диалекты Бейсика для ZX Spectrum». 


Цена кассеты с программами — 300 руб., 
дискеты — 200 руб. 


e распространяел дискеты с программами, разра- 
ботанными или адаптированными Н. Родионовым и 
А. Ларченко (DCU 2.31, Disk-Doctor, Pcopier Plus, 
MOA-Service, TLW2M и др.). 


Цена дискеты с комплектом описаний — 350 руб. 


Ф Продает монохромные мониторы « Электроника 
МС6 105». 
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Для оформления заказа на книги и программы 


необходимо перевести по почте (для частных лиц) или через 
банк (для организаций) на расчетный счет фирмы «Питер» 
соответствующую сумму. Копия платежного документа с 
указанием перечня заказываемых товаров отправляется в 
адрес фирмы. Не забудьте сообщить Ваш обратный адрес. 


Цены приведены без стоимости доставки. Почтовые расходы 
оплачиваются заказчиком при получении бандероли. В слу- 
чае изменения цен доплата производится также при получе- 
нии бандероли. 


Фирма «ПИТЕР» 


Расчетный счет для иногородних платежей: 


к/с 41000161499 р/с 49100609294 
в банке ЦРКУ ГУ ЦБ России 
МФО 161002 


Расчетный счет для платежей из С.-Петербурга: 


р/с 49100609294 в Парнасском omg. 
АО «Банк Санкт-Петербург» 
С.-Петербурга, МФО 171337 


Адрес: 196244, С.-Петербург, а/я 21 


Телефон/ факс: (812)-235-3749 
E-mail 2:5030/ 25 @ fidonet.org 


По вопросам приобретения литературы можно 
также обращаться к нашим региональным диллерам: 


г. Томск, 634045, ул. 19-й Гвардейской дивизии, 13, 
Фирма «Старт Ltd.», тел. 44-44-93, 44-80-78 


г. Смоленск, 214018, Киевский пер. 16, 
Коммерческий центр «Апекс», тел. 6-25-19 


Украина, г. Херсон, 325000, ул. Суворова, 3, 
Учебно-научное объединение «Дисплей», тел. 4-01-52 


Украина, г. Луцк, 263026, а/я 94, Фирма «Скиф», тел. 5-99-12 


Беларусь, г. Минск, 220005, а/я 95, 
НПК «Протон-Запад», тел. 63-52-72, 33-13-11 





ОТКРЫТАЯ 
МНОГОКАТАЛОГОВАЯ 
ДИСКОВАЯ ОПЕРАЦИОННАЯ СИСТЕМА 


Sankt-Petersburg isDOS 1.0 


Операционная система isDOS устанавливается Ha все типы 
компьютеров, совместимых с ZX Spectrum и согласуется с 
внешними устройствами такими, как электронный диск, ди- 
сководы 5.25 и 3.5 дюйма, винчестер, модем и локальная 
сеть. 


Оконный интерфейс, контекстно-зависимый встроенный 
НЕГР, работа с командными файлами, системная дата, маска, 
собственное меню в каждом каталоге и многое другое — 
понравятся самому требовательному пользователю. 


Многооконный текстовый редактор, встроенный в ОС isDOS, 
работает с файлами в формате Multi-Edit и Lexicon, в не- 
скольких режимах отображения с длиной строки в 252 
символа. Размер обрабатываемого текста ограничен только 
емкостью дискет. Печать текстов возможна различными 
шрифтами, с разбивкой на страницы и колонки, с автомати- 
ческой нумерацией. Возможна раздельная печать четных и 
нечетных страниц, печать графических полутоновых изобра- 
жений в произвольном месте листа. 


ОС isDOS предоставляет возможность создания динами- 
ческих рекламных текстовых заставок. 


Под isDOS созданы различные АРМы со структурой данных 
в формате DBASE. 


ОС isDOS значительно расширяет возможности использо- 
вания компьютеров типа ZX Spectrum в научной деятельно- 
сти, в сфере бизнеса и управления, для создания прикладных 
и коммерческих программных продуктов. 


ОС 15005 ориентирована на пользователя, не обладающего 
навыками программирования, однако не оставит равнодуш- 
ным и профессионального программиста. 


Фирма «IskraSOFT» при разработке 1500$ ориентировалась 
на стиль и идеологию операционной системы MS-DOS, уста- 
навливаемой на компьютерах типа IBM РС. Такой подход 
имеет неоспоримое преимущество — пользователь, работа- 
ющий с 15005 на ZX Spectrum при переходе Ha IBM PC 
попадает в знакомую, привычную ему среду. 


ОС isDOS — новая жизнь ZX Spectrum! 


IskraSOFT Publicity Division 1992 
194100, Санкт-Петербург, а/я 34 
(812)-245-18-97 
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КАКОЕ ВПЕЧАТЛЕНИЕ 
ОСТАВИЛАУ ВАС КНИГА 


«Диалекты Бейсика для ZX Spectrum» 


Точность изложенных сведений 
Новизна информации 

Стиль изложения 

Удобство в пользовании 


Оформление 


Общая оценка 


Зресиит-Бейсик 
Компиляторы Зресуит-Бейсика 
PRO-DOS 


Laser Basic 


MegaBasic 


Beta Basic 


Бейсик 128 





(отрежьте и приклейте на конверт) 


196244, Санкт-Петербург, 
а/я 21 


Кому Фирма «Питер» 





Какими диалектами Бейсика Вы пользуетесь чаще всего 


Описание каких программ и аппаратных средств для 
ZX Spectrum Вы посоветуете включить в наши следующие 


издания 


Хотите ли Вы стать нашим региональным распространите- 
лем литературы по ZX Spectrum 

Ваш возраст, профессия 

Сколько лет работаете с ZX Spectrum 


> 


Ваше имя, адрес, телефон 





Если У Вас есть предложения и пожелания, можете H3- 


ЛлОЖИТЬ HX 


Большое спасибо всем, кто прислал 
свои отзывы на книгу 
«ZX Spectrum для пользователей 
и программистов» 
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